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AO PRACI 


NPS-PASCAL is а studert research project at the Navel 
Posuereduete School, the goal of which is the irvolerentatior 
of the PASCAL programming language or a ‘microcomputer 
NEE NPS-PASCAL will consist of two vrosra”s, a compiler 
Eb »roduces irtermediete code, and ar interpreter, which 
NEU terpret the intermediate role, or a translator, which 
wil) produce target machine code. NPS-PASCAL is desigred to 
Sonrerm to the requirements of the PASCAL Standard, as 
Hed ny the British Standards Institute/Internationel 
maris Orzanization working Dreft/s. 

DEC comoiler presram, the subject of this thesis, 
Barn: the lexical, syntactic and semantic anelysis cf e 


oro sram. NPS-PASCAL is written in INTEL S PL/Y=-&£ 


ct 
cy 
(D 

сэ 


vrosrerring lanzuss and execute on P/M operati: 


iD 


stem. 
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I. INTRODUCTION 


A. EACKEROTEND 

WES=PASCAL às an irplerentatior cf “ne PASCAL 
nne lansuase on a Microcomputer system. NPS-PASCAL 
Eeen Continuing research project in the Computer Science 
ШЫ ment at the Naval Posteradust=e School, MVonterey, 
NEN ornis. The original NPS-PASCAL design ard programs were 
En 2r bv MAJ Joaquin C. Gracida, USMC, and LT Robert EF. 
ell (SC) USN, in tneir thesis submitted June 1975. 
BE work: is conteiíred in Ref, 1. MAJ Grecida and LT 
ШОО е]! ¡implemented the basic contructs of the PASCAL 
lenzueze in a one-ress compiler and code generator. Thesis 
EE was continued in June 1979 hy LT John L. Pyrnes, USN, 
ej code to implement many missing constructs, and 
MevetoDed a number cf user assistance programs. His work is 
Banned in Pef, 2. Thesis work was oortirued again in 
ter 1979, with the goal cf completinr the compiler 
Beton of NPS-PASCAL. Follow-on thesis work will lead te an 
MOSS PASCAL interpreter/translator and a complete PASCAL 
Elem. In the discussion which follows, it is essurei that 


ME reader is familiar with Refs. 1 and 2. 


UE APPROACTZ 

AER irst step in continuing tho NP3-PASCAL project was 
ME convert the source vrozrars fror PL/M to PL/M-82 and 
transfer them from the IEM Z620/E7-based timesharing system 


EN 9 intel Microvrocessor Development System. This would 





Eu the Compiler to be developed and debueged in a 
Mate tely  Microprocessor oriented ervirorrert, and would 
ШОО rate the need to use the PL/" cross corpiler. 


Han 


íD 


next step was to study the vrogrem listires and 
Meevious theses to gain a detailed farilierity with tne 
Mm ct. Tnecludad ir this step was arquiring a working 
krowledge of the Intel ISIS-Il oneratirg syster and the 
Meee Compiler and its attendant linking end loading 


ME Ts ard utilities. Since NPS-PASCAL is compiled under 


O 
ES 


ENENMSIS-II operating system, but ex2cutes under the P/M 
P 


cn 


BN 


opereting sysem, it was also necessary to learn the M 


utilities for transferring files between systems, and the 
BM rur-tire debuesers, DDT ari SID. 

Mier largest portion of this thesis effort consisted of 
Ere corrections end additions to existire code, addirg 
Mode where recessary, tracinz exs^ution to locat? logic ard 
errors, <correctine documentation, and running test 
NN prozrars. Implerentatior of the record construct 
wired charging the original grermer and correcting the 
parse tables. 

To avoid testin t? Coomniler. with: syntectically 
incorrect PASCAL vrogrars, test programs were selected fror 
PASCAL User Manual and Report [3], frem various student 
texts on PASCAL, and from the PASCAL Validation Suitel4]. 
The test progrers SO the Validetio” Suite were 
particularly helpful, in that they exercised the full range 


bunny fiver PASCAL construct. 





An attempt was made to upgrade and corrlets tre 
ШОО ТАЗТЕ user assistarce prograr described ir Pef. 2, 
Ever, it was abandoned and a substitute program, SYMLTMP, 
was developed. SIYEUMF provides ar ordered, eddressed hex 
КООШО tre symbol table, and provides a much mere useful 
and efficiert means of accessine tre symbol table. 

It was felt that it would be beneficial to include and 
MT |idate the documentation and descriptiors from tne 
“ies theses into a single document, so sectiors of Bafs. 
Band 2 appear ir this thesis. The appropriate sectiors were 
ugeted to reflect changes in the prosrar code cr structure. 
In others, descriptions were expanded and diégrams were 


mea, Or the sectior was included in its entirety. 





II. NPS-PASCAL COMPILER IMPLEMENTATION 


A. NPS-PASCAL LANGUAGE EACÉSROUNL 

WPS=PASCAL 1s ar lmplerentetion of the PASCAL language 
Eon tne BSI/ISO Wcrking Draft/3 of Standard Pascal [5]. 
referred to in this thesis as STANDAPD PASCAL. NPS-PASCAL 
Monin compliance with STANTART PASCAL’s defiriticr of a 
conformine processor with the following three exceptiors: 

Meme idertifiers, directives, ard labels car he of any 
length, as prescribed by STANDA?D PASCAL, rrovided 
their wricveness can be determined fror the first 
BNUTLLY ScHharacters, 

(2) Integers are limited to any value between -32,7€£ 
EE. Meal values can reke on ary rezetive or 
vositive value Consisting iS Canas 
Et ON od by cer to the -C4th nower taroush. ter to 
HE sr‘ power. 

(3) “ECP is a special symbol, or reserved word, in tae 
NPS-PASCAL vocabulary indicatire ‘eri of program. ` 

Monsecuertiy, any program that conforms to the rules of 
K SCD PASCAL, and meets tae above listed qualifirations, 
momsuitutes a syntactically correct NPS-PASCAL program. 

Ghe University of Toronto's parse table generator [E] 

meee used tc specify the NPS-PASCAL grammar iz LALR{1) forn. 
DE generator operates on tne IBM 3€2/67 and produces parse 


memes for the hlarguaze, thus perrittine extensions and 


memrections to be rede in an aasy and efficient tenner. 


1€ 





B. COMBILEP ORGANIZATION 


ba 
` 


Ni compiler structure, diazrermed ir Zig. 1, performs a 
EE le pass through the source vrozrar, produces an 
intermediate language file and may print an onticrel listire 
“tie source progrem to the consoles. The one pass approach 
was taken to provide speed and to reduce the size of the 
Mompiler. The disadvantage of the one-pess desizr is the 
MA Uit to specify the exact location where program 
Execution resures after a forward branch. To solve this 
problem, labels are placed in the intermediate code where 
Emecution 5hould continue. The resolution of label locations 
is then the responsibility of the interpreter/translater as 
Wi scans the intermediate code. 


ШУО то ег builds the symbol table, converts all 


(D 


END: to jheir irterral representatior, ari genrerates th 


` 


Eu iediate code file and the symbol table file. nh 


(D 


Em ler accepts input parameters to cortrol the listinz of 
NIESsobrTCe program, production numbers, cr tozen numbers. 
moe creation of tne intermediate file can also be Suppressed 
if it ís not needed. 
IIS CANA TE 

ao scanner analyzes the Source pregrar charecter by 
Charecter and passes each token identified to the parser. 
Die Scanner can provide a listing of the scurc] statements 
and elimirate commerts. 

eo scanner is written in four sections which are 


Ma vely executed deperding or the first ror-blark 


sal 





NPS-PASCAI Compller Structure 


| 
e iii. l 
! 
| 
N N TT EALIZEE | | 
\ | 
| 
| 
! 
ug DS CB EIE DEE 

! 


4 ERROR NG 


FIGURE 1. 
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EP cter of the inout strinz. «her tre section to execute 
has been determined, the remainder of tne token is scarned 
ED placed ir the input array ACCUM. The first byte of the 
Mec erray contains th= leneth cf tne toxen. In the case of 
tokers that exceed the size of the APRAY (“22 bytes). a 
Eu ipuation fleg is set to allow the scanner and parser to 


ME the rest of the toker. 


"3 


Men tour sections of the scanner process strirgs, 
BURN Ders, identifiers and reserved words, end special 
Eopecters, respectively. The string vrocessins section is 
шеси еа whenever the first character of the tozen is e 
Bon merk. Ihe scanner then accepts eack surceelirg 


mraracter until a second quetation marx is found, indicating 


EN UJ of the string. The section that processes nurders 


O 


Metermineés the type cf tha number teine scanned as it scans 
EE Cheracter. This determiretior is used hy subroutines 
EEUU the compilation process to perforr tyre checking 
E conversion to internal representation. "her the ssanner 
Nscoesenizes an identifier, it searcnes the vocabulary teble 
EU -termine if it is a reserved word. If sc, the scanner 
ШООПГ?5 the token number associated with the reserved word. 
ED Characters fcund in the vocabulary table are handled 
EE senarete tokers except in two cases. If a period is 
Moved immediately by numeric characters, the scanner 
assumes a real nvrder is beire scarred. Wher e pair cf 
ERRO! Characters occurs consecutively. (for instance := ), 


the scanner passes both characters as a single token efter 





rice the appropriate token rumher from the vorabulery 


tanle, 


fee os IMBOL TABLE 

ii sr bo) table is used to Store the etiributes of 
BENE Us. corstants, types declarations, variable identifisrs, 
Em edures, furctions end file declarations. This stored 
Mito mration is used by the compiler to verify that the 


ME ar is semartically correct and to assist in code 


л) 


Ee erellon. Access to tne symbol table is throuzn various 
Subroutines using based global variables to uriouely address 
Ba lerents of Each entry. 
E 07» Taole Construction. 
I if eoo] ta3Əbl5S is ап Unorderad linmed 0 list of 


ii Which erows from tha last byte of the compiler 


toward hien rerory. Individual entries ere either accessed 
ШОО a chaired hash addressing techzique (as illustreatea in 
EBieure 2), or by means of address vointer fields contained 
Ber entries. This latter method of access is required 


Bae rot all entries in tne sy7bol table have en 
men titier, called a prirtrame, assoriated witr ther, 


iena Gn in lane nash tadl2 contelrs the read of 


H— 
iD 
un 
= 
y 
O 
л 
(D 
O 
' 
= 
ч 
¿+ 
tus 
С) 
3 
(D 
= 
DE 
(D 
Pa 


aime ly linked list of ent 


"3 


Fvaluyated, results in the sere nasa value. A zero ir any 
BE of  thz nash table inlicatos tnat trere ars no entries 
ШОО Drirtreme produces tnat value. During syrbol table 
sets truct ton (СШ м LE  Elooal | variable .PEINENAFS 


“ta ins the address of а strirz of bytes whose first 


14 





ESI c FUNCTION: SUM OF ZEN VALUES OF TRE ASCII CHARACTERS 
ETES PRINTNAME MOIULO 1<E. 


TXAMPLT: 
nro (419 = 429) “OD EJE = 83 
fgentifier BA = (41E + 4181 MOD ses = eee 

HASE SYMBOL 
TABLE TARLF 
E a l boreali | 
l | I ' 
] | 
|———— l ses | 
/ A Coke NOT 
N ч esse Chain 
A / | A de : 
куш клм. | | 
“i X ! | 
A / "-»i-2-------- ' ! 
N N SCH n | | 
/ / TA | | 
a E | "= SEKR 7 | 
2 | ' mer | | 
RS E | O 
summa er rer ' 
y -—---=--—-— i | | 
/ / Eo 
N N | | 
/ / Deet | 
l i 
| I 
|--------- l 
| | 
N \ lo | 
/ / | | 
EE =. l ame. AE | 
1 ' 1 ! 
ae | | l 
— ! I n es i 
mov | ) | | 


E wm emm = A GED ADA ce sm í du GU GU one ce DU u š 


SNBO AHIT ACCESS 


FIGURE 2. 





EE 15 tie terete of tae current identifier, fcllowed by 
Meee identifier s ASCII characters. The global variable 


ANA 
de = 


- de 


КО СЯ contains the nash cod] value of the identifier. 
me code is the sur of the hex values of the PRIJTNAMEÍS 


EG characters, modulo 122 (base LEI, Entries trat preduce 


t 


the same hash code are linked together in tne symool table 


cr 


by a chair which is accessed via th? entry s collision 
EN The chair às corstructed in such a way as to have tre 
ME recent entry et the nead of the chain. 

Boer inesymbel teble contelrs e rumber of 
NUUS. some o? whlc^ are common to ell ertriess, and scme of 
КООШ лоо у only to particuler classes of entries. All 
SS Pave tre same first three fields: the collision 
ED Mn the first two bytes: the previous syrdol table 
mn address field in the third avd fourth bytes; end the 
Mela in the fifth byte. The rorainira fields are used 
to unicuely describe each entry's attributes and 
Hucrscteristics. 


ers are e1snt different types of ertrie ТОРДУ! e° 


л 


FESSPASCAL symbol table. Ezach o? theses tyoes has e unique 
ME Dit code in the risht-rost three bits of its forr 
Baa ne remaining five bits in the form field furthur 
ad ivide the entry types amore the eight classes accorcire 
EN particular craracteristics of the type invelved. “he 
rorm field bit assignments are summarized in Table 1. The 
@m@emecteristics are described in detail es sach type of 


symbol teble entry is presented below. 


He 





ТОР Т т е]а Orzenization 


Form Valve am Entry EE LO En 
323 Label 20 3233 303 
mid Constert 
Ce Unsigned identifier CA PRO C21 
411 Signed identifier 01 222 22 
29H егег CO gel gel 
TIF Real CA 217 021 
197 Su mE VIO Te À 
X28 Type 
427 Integer 01 707 212 
4AE Boal vcl 001 PIC 
E Dr r GM EE AG 
SAH Boolean 2168 AA 
TAR Type declaration O eo de 
mon Verieble 
934 Scaler Go 200 211 
CBE Integer OE TONI 
1SH Cheracter CO 717 (P11 
BET Real Go] o 
2 Complex ZØ 12C (C11 
233 Booleen ve 101 211 
x44 Proce ES 
(45 Procedure VO Ele 10€ 
x5d Duet 10» 
“SE Funct1 on AR 
mon "ile 
gen Fils 22 729 112 
EUH User defined 
#75 Scelar ani EE 
¿MH Fnumerated subrange2 da O91 111 
AFH Irtezer subrarze GE Лү 
S nte Cnarecter subranze Var 
E Array 20 212 111 
I Record CO C11 111 
SPE Field (of record) maa 111 
OFF Tag field TEE a 
ГЕП Varient field IS TT 
273 Set Oe pom tT 
Eu File to MAT TIL 
Bi? Pointer CATIE TI 
Taole 1. 


17 





eae Label entries 
The forr field of a label entry has the value of 
DU. The hash value of tae labels printnare is in the next 
EN the “ash value is stored for collision resolution 
Rear. The length of the label follows in the next one byte 
ar The printname characters avvear, one par byte, after 
the length field. A two byte field following the printnare 
Ives contains a sequentielly ser=rateld integer value 
which is assigned as the labels internal label zumber. This 
value is used as the tarset for ðranchinsr Ua tne 
Mepermediate code. An examle of a label ertry is show ir 
eo. 5. 
bio Constant Entries 
Sp Forr Pield of @ corStant syrcol teble ortry 
NEED tné type of entry, and the perticuler type cf tre 
memsteant as well. There are five valid types of constarts in 


w PASCAL: an unsigned identifier with FOEM = fin; a siened 


iT 


m 
є 


O 
a 


a 


- o 


ME: fier with POEM = 415; an in 


ct 
'D 
Jg 
íD 
um | 
= 
te 
ct 
5 
1 a] 
O 
t rj 
SS 
i 


Well ic with FORM = 115; an2 a string constant with FORM 


EE Following the form field are the vrirtrate hash 


t+) 
Ha 
(D 
k= 
fd 
cv 
KON 
iD 
LA 
(D 


ПЕШ Ж eia ame ne printname caaraçters. 
EIEN ve Wie ties ld an corsist of arother length 


NE crd the printname qheracters in tre case of identificsr 


ffe pe constants, or it тау contair tre internal 
peoresentation of e constant rurber (two bytes fcr irtezers 


р 
in 


ehrt bytas for reals). Two examples of constant entri 


(n 


ERC shown in “ies. £ and 
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NC pri ON 

P ADDRESS 
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/ NUT YO DISC 
FORM 

HASE 


PRINTS Dan. TE 
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CONST ROIL = BOIL’; 


Memory | Svrbol | 

Address | Table | 
COLE | Øg E | S GET SON 
Coe Cee | GER | / ADDRESS 
SIDE a | N PRE TO sa 
77038 | os | / ENTRY LIIRESS 

A y Cu | 

73G FH x 19H | HOEY 
on oo | “Er | GA SE 
(STE | quB | BRENTA MEI ENTE 
Т ОШОН | au { | AS COI COARAÇINE R 
DORMI E AFR | ASG GA AGAR NO 
73143 o agr | COME al T 
SUS a E am | Pou ll C P pAGTEP L 
Coen | da | S n] ACENG T 
Bade e Soil Cee Clee 
MaS El | оа | ASCII CRARACTIES 9 
75198 | АСЕ F | "OC IO ASI 
TALAE б озып | SSR RI Т, 


== SE n — E «=> a e cc» (> > 


SEEMS Te STRING CONSTANT ENTEY 








Gee Sen LES 
ME pus ët typ] ertries ir its 
Ro! table: simple tyre entries and type declaratior 
Mes. The simple type entry car either be one of 


u 


SEV CAL s standard types, or a previously defined sirple 


fU 


type declaration (scalar or subranee). In the letter case, 
Simple type entry is made in the symbol table, with a 
pointer to the scalar or svdoranze tyne declaration entry. In 
ME iorrer case, one of the following standard types will be 


ШОО леа to the type entry. 


loser - The "values of this type are a subset of the 
whole numbers whese range is the set of veluss: 
Sri Ls... Matirt=1,maxirt 


where maxint = 22,757, 
Ð o m E = ~ £ + - a Y n 
Poal The values are a subsat of she real numbers 
ОО з К ШОО ЖОО? fourteen digits multiplied bv ter to 
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Mile the next two bytes contein the hizn velue of the 
Mes. “he followire field is two bytes long and stcres the 
Motel number of elererts ir the rerge. The displacerent 
vecter is rot stored with the subrengo, since any given 
subranse could serve as the index to arrays of different 
base types. The displacement vector is stored instead with 
ME arrev entry itself. This entry will be pointed to by a 
variable entry claiming this type. An sxample of a sutrange 
Ee ertry is shown in Fig. 11. 

(3) Array Types. The preceding two уре 
declaration entries in NPS-PASCAL are called sirple type 
entries, They are symbol table entries using а single, 
predefined type. Structured types are corpositions of tyres. 
In other words, one cr more tv»es are used to describe a 
merete symbol table entry. 4 structured type will have a 
Bur declaration entry which contairs the printnams, and 
Which points to the structure type entry. 

The array t type jis a structured type 
EE Ssusting of a fixed rumber of components trat are all of 
Mi. Same typ2, called the component type. The number of 
components is specified as a scalar or subranse type ard is 
referrei to as the index type. INTECTR and ETAL types are 
rot legal index types; however, the scalar or subrange type 
can be of the tyre integer. 


ie stel tesis forrat tor ar 
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rr Try 
nes the form value of 17H. Tne following byte specifies the 


Euer Of indices, or dimensions in the array. The next two 
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TYPE PRIME = RED..ELUE; 
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Bands are both two bytes lonz, the first containing tie 
address of the component type; the second containing tre 
total storage requirerent for the array in bytes. The 
eleventh byte of the entry holds a value designating the 
type of the array's component as defired ir Table 2. A two 
mega follows with the symbol table acdress of tre type 
entry of the array's first dimersior. This is followed by a 
two byte field which contains the displacement vector for 
Eco dimension. The displacement vector for each dimension 
Mmmprese its the distance in oytes between two elerents cf the 
array which have a difference of one ir the corresponding 
Subscript. If the array has more thar one dimersion, four 
Bytes are alloted in the symbol table te store the 
address and EE EE EES Vector ð oli 
E ension. This entry will be pointed to by tre variable 
Eu claiming this type. An example of an array type entry 
Known in Fig. 12. 

(4) Record Types. A record is another NPS-PASCAL 
Em cured type. This structure has a fixed number cf 
Momponents, callea fields, each of which can be of ary 
defined type. The syrbol table entry fora record nas tne 
Ern field value cf 1FE. Bytes six and seven contain tre 
mae requirements in bytes for the entire record. bytes 
eight and nire store the symbol tabl= address of the type 
minor the lest field contained in the record structure, 


DU remairirg field entries are located by chairing backwara 


gie parent record entry via the vrevious syrbol tedle 
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NE address. An exemple of a record type entry is shown in 
fe. lc. 

Mae cord field consists of ar identifier 
EN De. ine forr field of a record entry has a value of 
Sky. The following two fields are bytes for tne hash and the 
Bern of the printname. The next field holds the printname 
characters. Tne address of tne varent record is stored in 
Mer next two bytes. The following field has a cna byte 
leneth and is used to store the record field’s type. Tne 
value stored is also taken from Table Z. Two more bytes are 
used to store the symbol table address o? the type just 
Eucsted. The last field of this ntry is two bytes lcne 
Baa nolàs the offset ot the record field fron the record 
base. 

NE En SUDDorts “tne verient fiele. eni 
BE field constructs of records. These two kinds of record 
BROS have symbol table entries similar to the one 
described above for fields, with the excepticr of the form 
ad which is LEE for variant fields, and OH for tag 
MEROS. Ar example of a field entry is shown in Fig. 14. 

(5) Set Tynes. The set Structure defines a set 
0f values which is the power set of a declared base type. 
Hie base type is required to be a scalar or subranre ty»s5. 
The set type symbol table entry has a forr field value of 
EN The following two bytes contain the symbol table 


Tess of the set type identifier. An example of a set type 


Be is shown ir Fig. 15. 
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consisting of a sequanc ED Components, all Of Une same 
ME called a file. K file type indicates a natural 
EN nz of the components, whose position in the file 
defines the sequence. A file tyve decleration ertry in the 
Baa] table has a fcrm field value of “FE. The symbol table 
dress of the file type s identifier is cortained in tne 
Remi two bytes. An example of a file type entry is shown in 
E. 1C. 

(7) Pointer Types. NPS-PASCAL supports dynamic 
Wade bless which are generated without any correlatior to tae 
MSC. structure of the program. These variables are 
assizned a special tyve called pceinter type. The form field 
Due is set to 37F, while bytes six and seven 
bol table address of tne pointer tyve's parent ertry. An 
example? of a pointer type entry is shown in Fig. 17. 

1. Variable Entries 

Hel variable declared ln an NPS5-PÁA5CAL prepram 
me erted into the symbol table. The forr field cf tae 
Male entry contains a value which describes the tyne of 
Mes varia le. The values for this field ard the associated 
Bes arc shown in Table 1. Following the form field are tne 
Blas containirz the variable idertifier's prirtnare, hash 
ame, length, and the vrintname characters. À two byte 
field which contains the variables startine address ir 


ШКО appears after the printname characters. This adáress 


is an offset from the base of the variable area, called the 
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Program Reference Table (PAT), wnich address is assigned ty 
Hie NES PASCAL Code Sener Or. ine v rio polo ye 
determines the number of bytes assigned to store the 
able in the rRT. The compiler xeeps a runrirz total of 
the amount of storage assigned to all variables, and 
EN des this valve in the pseudo code at the corpletior of 
Mc essful prosgrerm corrilation. The interpreter/translator 
subsequently converts the relative addresses in une 
intermediate code to absolute address in the final tarzet 


TEL 


E13 


machine. Next is a two byte field which contains the S 
address of the variable’s type. In the case of the steriard 
Bascal types integer (FORM = @BE), real (1BF), character 
(138) and boolean (237), this is the address of that tybe in 
DE PUILTSINSTEL. In the case of integer an? character 
subranges (2221), this field contains the address cf the 
Mibrarzs type entry. In the rase of a scalar (227), tnis 
field contains the address of tne last of a series of scalar 
(@7H) entries. The remaining scaler entries are locatel by 
ehainire backward to tne variable ertrv via the previous 
mol table entry address. If the variable is a complex 
ation, (array, record, set, file or poirter), this 
field contains the address of the complex tyve s ertry in 
mie symbol table. If the variable is of e type previcusly 
ШОШО in the program, this field contains e pointer to 
Uat type declaration. Examples of variable entries are 


own in Figs. 1€ - 29, 
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MARX: INTEGER) 
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RR OP: (DLUS,MINUS,TIMES); 


Merory | Symbol 7 

Address Б 
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VAR A:SARRAT[1..5] OF INTEGER: 


Merory | Symbol | 
Address m 
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oasi TE | 
(Can j 
BÉ x. 
os | аш | 
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a Procedure and function ¿ntries 


— e 


mer roede and zuretion in an NPS-PASCLI 
fen: has an associated entry in the symbol table. In the 
MIE of a procedure entry, the form field is assigned the 
value 247. The hash value, length of the printname, and the 
nare characters immediately follow the form field. A 
ENS byte field follows and stores the number of parameters 
Mesociated with the procedure. A two byte field is next, 
Eus the symbol table location of a listing of the 
procedure's parameter types. This listing is referenced by 
the compiler to ensure proper mapping, ard is located 
Memeeiately after the firal procedure ertry in the symbol 
table. Following the parameter types address fieli ir the 
Meecedure entry are three more two byte fields. The first 


бседцге 


ШО а fives the PET address assigned to tae 


єў 
Es 


identifier. the second field gives the PRT address essiened 
EN GC procedure seve block pointer (S3P). The SBP vuerrits 


pecursive subroutine calls, and will b= explained in th 


(D 


Esction or Code Generation. The final field in the entry 
holds e label value that must be branched to when the 
Meocedur® is invoked. An example of a procedure entry is 
BEuown in Fig. 21. 

ae LOOP ер ir the symbol table duplicetes 
K Ure entry with two exceptions. A function ertry kas 
OT field value of @5H; and one byte field is added at 


Emend of the entry to designate the type of the function. 





PBEOCEBURS LO (X:INTTGFP$ VAR Y: INTEGER): 


Memory 
Address 


746 LE 
746 FE 
74695 
74708 
7471H 
DEDE 
"4" OE 
7474H 
7475H 
7476E 
MEME 
747EH 
74A79E 
Ta? AH 
AH 
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747 DE 


747ERh 


Sn BOL 


ml 2 E E M G s m ee ll. 1 i 


amu ae EEE ung Lone cnp WEER бн) SEED s s s a m emm emm 
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a om | N SP ED EES SAO 
m | PARAMETER LISTING 
"ses ` \ ON 
oe ` ; ASSIGNEL 
> "o | \ SAVE BLOCK POINTE? 
“ша sano n m 
21H | No «LABEL PRECEEDING 
age | y PROCEDURE CODE 


ODE ENTRY 


EE EE ed. 
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Function tyve assignments are also tazer from Tanle 2. An 
BI of a function entry is shown in “la. 22. 
F 


(1) Formal Parameters. 


ou ^ > WE a” com co co = GE ew OW ow O O O ow a= 


ormal parameters provide 
a mechanism that allows a procedure or function to te 
Mepeceted with various values being substituted. The formal 
MTS Pers are aeclared in the preceaure cr Murci con 
weedoration and can be of four types: value veremeters, 
variable parameters, procedure parameters and Funer ion 
H rs. Fach declared parameter has an associated symbol 
table entry. A value parameter entry has exactly the same 
EE . as the variable ertry. A variable parameter entry 
also duplicates a variatle symbol table entry, with tne 
END" or the form field. The hizh order bit cf the ?огп 
MET. is set to one for all variable verameters. Prccedure 
Mi function parameters are entered as desrribed above for 
procedure and function symbol table entries. 

Figure Z253 illustrates a samole series cf symbol 
pole entries with e procedure entry followed by various 
a mal parameter entries. Note that the final few bytes show 
the listing of the procedure’s parameter types that will be 
Bt ed for mapping actual varameters into the formal 


parameters. 


E PARSER 
The parser is a table driver automaton ard is rodelled 


| 


CS) 


after the ALCOL-M [7]. The LALZ(X) parser generator | 


(D 


produced the required perse tables ard the vocabulary tabl 


, 


(D 


n 


ct 


VOCAB. The parser orerates by receiving tokens from 
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Nerory | So: 
Address | E 
74605 | IgE | 
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Werner, analyzing them to determine lf tasy are a pert of 


me PASCAL grammar, then accents or rejects the token 
@eeording to the grammar. If the token is accepted, one of 
two actions is teken. The parser ray stack tne token and 
continue to request tokens in the lockahead stats, or it may 
Wéeeocrize the right part of a valid production and apply the 
КООШО ОП state. This results in a stecx reduction. If the 
ООО rejects the token, or deterrines that the token 
5 еа does not constitute a valid right part cf any 
production ir the grammar, a syntax error message will be 


Bad to the console and th RECOVER procedure is called. 


“3 


ООО ЕК is a procedure that perrits cortirusd progra 
we l tion in spite of the detection of a syntax error. Tne 
parser backs up one state and attempts to continue persing 
ШОШ that state. In the event of failure, t^e verser 
Monticues to back up until the end of the currently tending 
tir is located. At that point the invalid teken is 
completely bypessea, ard an attempt is made to parse the 
Merlowing tcken. This process continues until an accaptable 
momen is found. 

The parse stacks in NPS-PASCAL consist of a state stack 
and Ea auxiliary Stacks. Tne auxiliary stacks are 
ШОО е to the parse stack and are used te store 
information extracted from the symbol table needed durice 


code seneration. Tne stacks are: 





feet - stores the symbol table address of tne current 
identifier; 

FORMSFIELL - store the form field value of the current 
ШОО ШО Гуе as reflected in the syrdol tele; 

END MCX — stores the type value of tne identifier: 

PRTSADDR — stores the PRT address of the identifier; 

MeseuSsTACK —= stores the label value to be used with 
buwanessm2olnstcructiors; 

PARMSNUM - stores the number of formal parameters associated 
with a procedure or functions 

men oNUMSLOC ~ stores the sybol table address of the list of 
forral parameter types associated with a 
procedure or functions 


PXPRESSSSTKX -— stores the type value of ar expression. 


E. CODE GENERATION 

Mi parser not cnly verifies the syntax of the source 
Ele tements, Dut als oni rolls the ceneretion .of. thes 
Biermedlate code by associating semantic actions with 
production rules. when a reduction takes rlace, the 
ШОО СТ ЛЕ procedure (in SYNTE2.S8C) is called with the 
production number as a parameter. The SYNTFESIZE procedure 
SS San extensive case statement xeyed by the production 
number to perform the appropriate semantic actions, The 
ria of the language and the semantic actiors for each 
Me tion are contained within the listing of the rodule 


EUUTH2.SRC. 


DE 





Em lamenta! to understandire the comoiler is a detailed 
Enowladge of the NPS-PASCAL data structures, the pseudo 


Sar. fh use of @rocedurss ard functicns, ant the 


Sempunication vaths between tne compiler ani tas user. “ne 
КООШО operators ere described in detail in Ref. 2. Tnese 
Mier elements аге HSR i below Lo essist Dr 


mu in ine the NPS-PASCAL corpiler constructs and to 
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Eur tre logic use 
Mi code will later be used to generate tne target racninse 
Bode. 
EE ога=з Space Allocatior 
ii: amount of storage allccated to a variebla is a 
ac o: the tyne of the iter. Sot each prost variable 
Nequirine storage space, the compiler specifies the number 
EN ies to be alloted, and keeps a rurring total oi tre 
Eunber of bytes assigned. The total count is then passed tc 
NE code generator to establish the size of the Program 
Reference Table (PRT). 
a. Byte Data 
Byte data items are stored in a single byte in 
Byte deta items can represent characters, rumhers, 
Or boolean variables. 
mee integer Fata 
Integers are represented by two byte locetions 
in memory with the high order byte preceding tne low order 
byte of the integer number. The storage design imitates the 


gunettor of the @¢&GA microprocessor [E] in its rovenent of 





ENS from memory or from the stack into the vrocessors 
Wéwéédblce byte registers during program execution. Integers are 
Mepresented in two s complerent form, with the high order 
bit acting as the sign bit. A zero high order bit indicates 
ШОО тн үе integer, while a high order Dit of one indicate a 
negative number. 
co. tal Date 

Real numbers are revreserted in birery coded 
decimal (3CI) format. Each real number is represented by 
fourteen decimal digits and is stored in eignt consecutive 
tes. when loading e BCD value orto the execution stack, 
the byte located at the lowest memory address contains the 
sier of the number along with the sier and magritude of the 
exponent. Succeding bytes represent twc decirel dizits and 
rere backwards, such that the byte closest tc tne 
MET it буте contains the last two deciral disits of tas 
Buen. wrile the last byte contains tne left-mcst two 
Eus digits of tre numoer. The formet of a 3CD rumber in 
memory is displayed in Fig. 24. 

The exponent byte in a BCD number uses the high 
Er bit to indicate the sign of tha number: а one 
indicates positive, a zero negative. The rereining seven 
bits represent the exporent and its sign. The exponent is 
biased by 64 so that values greater thar 64 (in seven bits) 
Meprct è positive exponent and values less than £4 depict a 
negative exponent; the exponent is the difference between C4 


and the actuel value. The bias allows exponent values 
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meine from -C4 to +63. The BCD number always assumes that 
Bi decimal point ls normalized bfore the first digit. 
NE trina Data 
Strings are stored sequentially. The first byte 
ENS string stores the stringe length, thus limitire 
MES tO a length of 255 bytes. Immediately following the 
leneth byte are the ASCII characters of the string. 
К ritimetic Oneratiens 
a. Logical Operations 
Шо=1са ог бсо Зал, “operations act on byte 
values of zero ard ore only. À zero value indicates a false 
KP On while a non-zero value indicates true.  Lcgical 
ME ratiors requiring comparison betweer two elererts returns 
Rm valve of the operation in the true or false forr. 
be Integers 
Arithmetic Орогот опе WIS integers ere 
MN mea. by takirg the top two values from the execution 
Exc and placing ther in tne double dyte registers in the 
Evo’ Microprocessor, and then carrying out the requested 
operation using CUM AS COPprocessors native functions. 
ШШ егег arithmetic includes addition, sot roe! on, 
ai catior, division with truncation, modulo division, 
ОООО comparisons, and transformations to real (FCT) 
morrat. Balai! computation results, except for real 


e 


2% 


MES tTormatíons, are returned to the execution stack in t 


two byte intezer forrat. Felationel operations on two 





ШО сег values are carried out in accordance with tne rules 
for integer arithmetic. 
с. Reals 

Real arithmetic operations are more complex then 
Brose with integers due to the nature of the PCr format. The 
process is similar to that of integers in that vairs of real 
Ben bytes are moved to the E9080 registers. The recuired 
operation is performed, and the resultinz real value is 
Bed to the execution stack in the eight byte FCT 
format. Real values also follow the rules of integer 


arithmetic when involved in relaticnél operations. 
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“set: operations of set unlon, set difference, set 
#iiersection, set ecuality and inequality, set inclusion ard 
Rm membership are not implemented in this version of 
NPS-PASCAL. 

Pye coring Operations 

meee reletilonal operators of equality ar? inecuality 
have beer implemented for strings. The remairder of the 
END nal operators denote lexicorgrabhi^ ordering according 
mo the character set oraerineg, ard are not implemented ir 
mess version of NPS-PASCAL. 

eee rocedures and functions 

o cedures and Functions, also celled sutroutires, 

sive NPS-PASCAL the ability to display program segrerts as 


Sl Cit subprograms. “he only difference between å 


E scure and a function is that the function returns a 


o 





ME to the top of the execution stack efter it is invored; 


EN cedure does rot. This means that a function cell 
КОЛО у represents an arithmetic expression. Procedure 
Bellis, however, stand alone as program statemerts. An 
analysis of tne following procedure and function 
implementation by Blantor ard Moore [8] corcludad that the 
Burrent design is inadequate. Insufficient information is 
ea to allow parameter mapping from the execution stack 
mo tne PET. 
ee invocation 

Procedures and functions can be irvoxed with 
RETO or more actual parameters. Tne list of actual 
ters is substituted into the corresvonding list of 
Normal parameters declared in the procedure or function 
Beriritior. If the formal parameter is a variable parameter, 
Pie actual parameter has to be a variable &lse. Srculd the 
mormal parameter be a value parameter, ther the actual 
perareter can be an expression, provided that the exvression 
ШО matches the forral parameter type. For procedure and 
function formal parareters, tne actual varerster rust be a 
procedure or function identifier, Actual parereter types are 
checked against formal verameter types stored in the symbol 
ie during program compilation. The method of passing 
actual parareters’ values is via the execution stack. The 
Emecedure or furctior’s memory locatior is generated in the 


forr PRO <label>, where PRO is a mneronic reanine ‘branch to 





subroutire , end <label> is the label value stored in the 
subroutine's symbol table entry. 
Бо Storage Allocation 

All paremeters end variables declered within a 
NE dure or function are assigned a location in tne PRT. 
whose locations immediately follow the PRT location of the 
КООШ ге or function identifier. Upon recognition of a 
momoiete subroutine, another PRT location is allocated. This 
Bocation is called the Save Block Pointer (SBP) for the 
subroutine. The РЕТ locations extending Prom tne 
subroutires’s identifier location through the SBPr make up а 
Pocedure Control Block (PCB). The effect is that the PCE is 
Moa tleuous set of PRT cells, es seen in Fig 25. The PCS 
Bonstruct is based on the one used in ALGOL-E [12!, and its 
Ness 1s ir recursive calls to a procedure or furctior. 

c. Parameter Mapping | 

NPS-PASCAL uses a schere sirilar to ALSCL-F [ie] 
mapping the actual parameters of a procedure or function 
КОО its formal parameters. After ees tion of 2 
subroutine identifier, the actual parameters thet are 
identifiers have their irtermediate code generated ir tne 
form of a "РАЕМ` or "FARMI" mrnemonic followed by the PET 
Location of the actuel parameter. These mnemonics load the 
execution stack with tne values of tne actual varareters. I^? 
the actual parameter is ar expressior, the expression result 
Will be loaded automatically on top of the execution stack. 


Consequently, the compiler zenerates the mnemonic  PARVX 
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after recognizing a complete expression that is acting as a 


value parameter. PARMX will not require any action by the 
code generator. 
With the actual parameter in place, program 
Etrol will branch to the E AULE or furction itself. The 
compiler generates code to place three items on top of the 
execution stack. The first item 15 the number of formal 
parameters (f) in the subroutine, the second is the PRT 
location of the subroutine's identifier (IDLOC), and the 
third is the SBP address in the РЕТ (SBPLOC) of the 
EDoutine. The compiler then generates the SAVP operator, 
followed by the total byte count of PRT storage (t) assigned 
for the subroutine’s identifier and all formal parameters. 
This is followed by a listing of byte storage SE by 
each formal parameter (Pi) in the PRT in ETF. Order. 
The execution of the SAVP operator is expected to cause the 
following actions to be generated. by the code generator. 
(1) The SBP location is examined 
(a) if SBP = 7 then SBP :- 1, else 
(b) SBP > 9 and segment length (SBPLOC - IDLOC + 2) 
is obtained from the top of svailable memory, 
for example, at address x. The PCR is then 
copied from the PRT to the memory segment at x. 
The contents of the segment at x is then called 


the Save plock (SB). SBP := x. 
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(2) The top two elerents of the execution stack ere 
deleted; the next element (f) is copied and 
deleted fror tae stack; Pi = р(1). 

(3) If f = @ ther halt. All actual parameters have beer 
Ce Ae formal parameter locatiors in 
tha PCE. 

EET location (IDLOC +t - p(i)) ze top of execution 
stacx; delete the top element of tne execution 
ai pli) SE DUI) TR. 

EIN: :-7*- 1; go to step (3). 

ENS »rocess ensures that recursively cellirg a subroutine 
will not destroy the local variables and parameters of any 
meecedire calls. 

EE une tion Return Value 
oo Mede win the  SATP operator is. the CNSP 

EM Save) operator that reverses the actions of SAVP. Two 
Mime ters are required at the top of the stacx, the SBP 
Hons in the PPT (SBPLOC), end the PFT locatior cf the 
Eoutinre identifier (IBLOC). The actions, then, of UNSP 
are. 

(1) The value stored at IDLOC is copied to the ten 
of the stack (this returns a value for the 
function Calle”. tais value will he deleted for 
procedure calls). 

(2) If the value of SBPLOC is greater than 1 then 
OS s jP ee ir the free memory 


area is copied back to the PCB and the memory is 
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ШЕ Y: INTEGER: 


e 


MeOCEDUSE LO (X: INTEGER; VAR Y: INTEGER); 
| VAR TEMP: REAL; 
BEGIN 
NMP :=SORT(X) 
M: =TRUÚNG (TEMP); 
END; 
D:=6; 


STACK PRI 
ERFORE SAYP 
| I SRP | 2 
rs- ! 28 ! SBP in PRT TEMPLI - 
meee | LO in PET > Yl = 
| 2 ! # Parameters Zus 
€ | Actual LO! - 
Eo | Paraeters n ES 
ATTER SAYP, BEFORE UNSP 
| | S ES 
| : ТЕР! = 
i Rr 
| l X | 49 
| | O 
rs- | Å DAE 
AFTER UNSP 
| SBP | g 
1 | m | ' 
| | FR | tag 
i | ! 
| i X | 49 
| | Poe 
rs- | Í Bo! 7 
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u ee et 
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Free ne SP = E. Corsequently, 


EE UN operator re lurrs a valus from function 

ER ari restores tHe PC3 in the event of 

recursive calls. Figure 26 shews the actions of 

the SAVP and UNSP operators on the PRT and the 

execution stack. 

e. Forward Declared Procedures and Functions 

AOS mit the invocation Tof a procedure or 
ООО ОП ргїог to its definition NPS-PASCAL utilizes a 
forward reference. The forward reference consists of the 
procedure (function) head, followed by the word FORWARD. 
When the vrocedure (function) is defined later in the 
Program, the parameters are not reveatec. FORWARD is not a 
meserved word in NPS-PASCAL. It is instead referred to as a 
directive. Directives are identifiers in NPS-PASCAL, that 
EE Or ly occur immediately after a procedure or function 
heading. Directives are contained in the BUILTSINSTBL. 

Mx Standard Procedures and Functions 

Hei у= procedures crd functions that 
ETT ly exist ir NPS-PASCAL corresnona to tre standard 
Drocedures and functions specified in STANDAPD PASCAL. Their 
Meeration, hewever, is considerably different from user 
defined procedures ANU O re compiler First 
Memerates code for any subroutine actual parameters. A 
КОЛОС for the built-in procedure or function is then 
rated which tells tne interpreter/translator that it 


moot remove the peremeters fom tne executior stack, verforr 
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m 15d operation, and returr the r2sult to the stack. 
The standard procedures for input and output (Read,  Reedln, 
Write, and kriteln) will not recuire special action to be 
RR" by the interpreter/translator. The remaining standard 
sÐ lures dealing with files and pointer variables generate 
mnemorics that will require action by DUE 
interpreter/translator. 
E. Invut-Qutout 

Input end output (1/0) can be handlad in two ways: 
via console and via disk. Console I/O refers to the device 
ME  NPS-PASCAL user is utilizing to provide commands te the 
aa -- usually a CRT terminal or teletyve. Disk I/O 
Merers to utilizing auxiliary files on the disk for data 
Manipulation. 

Brut from consle 1/0 is achieved through READ or 
READLN statements. Console output is accomplished bv the 
Mere and WRITELN statements. Inout to the console is 
accomplished by an operating system routine that reads ore 
ШОШО console line into an input buffer. "ne code eeneretor 
generates code to examine the buffer ana convert ASCII 
Maeracters contained within the buffer into appropriate 
MES=PASCAL internal integer, real or string format. The 
input value ессе а е vita the appropriate read 
Statement variable parameter and then stored in the memory 
ШО а1ог а11осаїеа for that variable. A write staterert 
takes the irternal representations of integer, decimal, or 


byte values and converts tnem to their ASCII character 








rat. These values are then passed to en operating system 


Meee routine for Corsole output. Corstarts end string 
veriebles ere stored as ASCII strires in the interrediate 
Mode ard the interpreter/translator will generate code to 
Meme ther character by character to tne system print 
moutire. 

Disk I/O is achieved through the same real ard write 
statements utilized for console I/O. However, to reed data 
RN disk file requires that the file identifier be 
specified as the first parareter in e read statement's list 
of actual parameters. The file identifier nes to ve 
specified in the same manner for disk write statements as 
ad ne file identifiers used in read and write Statements 
must be declared in a variable declaration part of a rrosrar 
ШООК or as a program parameter in the program declaratior 
(called an external file). The file idertifier has a 
Bac PP! entry assigned oy tne compiler. At pvroeram 
ex°cuticn, space will have to be EN T on tne KP PA EA, 
u for the File Control Block (FC3) information necessary 


nterface file operations with the operating system. 


P 


Additionally, space should be provided for a 128 byte 1/0 
buffer for every declared file. 
dt. NPS-PASCAL Pseudo Operators 


aao oie descriptior of each of the NFS-PASCAI 


ESeudo operators is presented in Fef. 2, 


co 





III. PROELZMS ILENTIFLED AND COERECTII 


— s q QG Q vm gem =_= as eee a= en 22 a= == — == es = emm a s — O e 


As noted in Ref. 2, the BUILTSINSTEL must be located at 
Memory location 21Ф&Е in the executaole module, sirce tne 
Collision field and previous entry addresses are calculated 
and entered by hand. Cere rust de texen during the LINK and 
MecATE programs to ensure that the EUILTSINSTEL is located 


Eroperly. Since tne DINAR V ого гат adds  o5ject modules 


bð 


SONO ELS as 


tj 


Meeetner linearly, it is necessary to specify TALI 
BEEN rst module in the command lire to tne LINK prograr. 
While organizing the LINKed together modules enel dao Jus tits 
Ше address into absolute cole, the LOCATE trogrer uses a 
EE order of COTE, STACK, LATA, MEMORY. Corstants ir the 
PLM-82 source progrer (distinguished from veriables br the 
BATA directive), however, are allocated memory first, before 


Ea executable code. Forcing the mrerory address essignrents 


e- 


tart at 0183E with the directive (COLE 1@CE) to the 
BU  prograr places B3UILTSIN$ST3L at 1236, so a three byte 
dummy field was added right before the DOTE 
ration. The first three bytes of the final CP/™ 
executable file (1005, 1216 ard 1€2F) are used to store a 
RM nstruction which voints to the co”piler entry point. 
The two previous theses used ar EE N ES er wn icr tan 
tie IBM 562 and zeroed memory prior to Joaling the 
Compiler. Many of the variables were not initialized, 
instead, relying on a zeroed rerory location for their 


mee. PL/M-80 includes two directives, INITIAL end TATA, 


St 








MER are used to set the initial value of variables and 
monstents, respectively. 

ir additional difference  betweer PL/M and PL/Y-87 is 
. the latter allows an implicit dimensicn specifier. This 
E lows the table declarations in TASLES.SRC and other long 
declarations tone made “without” knowing or countire the 
Mater л of the data string. The implicit dirersior 
Meectiber is invoxed by entering en esterisx irstead cf a 
decimal constant, i.e. (*) irstead of (48). 

Due to à deficiency in th» grammar ani its associated 
Mes. sa record structure was not recognized urtil tre FD 
statement was parsed. It was then tco late to initialize ths 
variables used to eralyze each record decleratior. As ar 
rim fix, the code te handle a recorä declaratior hed 
me (ter into the scarrer portion of the compiler. 
Bey to the structure of the compiler, when a record 
ШС Г агаї1ог was recognized by the toker rnrurber, the record 
N ia lizing code was executed. Gerrecting this rroblar was 
"IT Subject of a project undertaker by Anderson and Myers 
NO! during a course in compiler theory at tka Naval 
Eosteraduate School. As a result of their worz, this code 
MaS. removed from the scanner, and placed in the production 
Case statemert where it belongs. The grammar was corrected, 
the parse tables regenerated, and changes to the existing 
ШОО were made by comparing the listings and typing 


tion 55 was 


O 


Meneses by hand. In the SYNT"2.SRC module, vroiu 


charged from 


D 
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ИЕ ОЗО ТҮРҮҮ 2:= RECORD <YIELD LIST> END 
to 

RECORD TYPED ::= CRECCAD> KFIELL LIST) ENI 
MN eroduction 56 was added to read 

<RECORD> ::= REGORD. 
gere cord is row recognized when the toxer RECORD is parsed, 
Mitre initialization of veriablas takes place correctly. 
All the remaining productions were renurbereá to vreverly 
reflect the parse tables. 

re user assisterce program SYMBOLTABL? provided by the 

ENSt thesis effort feiled in attempting tc print the symbol 
mene for nearly every test program tried. Considerehle 
Bart was expended during the current effort to debug, 
Mmeaity and upgrade this program to a useful tool. Code was 
“dad to determine the actual location in memory of the 
Symbol table during the compilation, and the symbol table is 
metto that address for processing. The SYMPOLTABLE 
EE ram was eventually abandoned for a number of reasors. 
west, it was attempting te read sequentially entries in the 
symbol table which were designed to ve accessed via the hash 
Eure. All too often, the prosram crashed because it was not 
moe to locate the beginning of the nert ertry. More 
Mequently, though, the entry in the symbol table was 
B correct, causing the SYMBOLTABL-T program to use incorrect 
Rn tears, lengths, codes, tc. The SYMBOLTARLF program was 
mepraced by a Much simpler, but much more useful progran, 


Bed SYMUUMP, which is described in the next paragraph. 


oe 





EIN Ulility smi 110 print tne contents 
EN file as a singla column of hex rharacter neirs, each 
we erting a byte. Each pair 1s prece3ei oy a four cigit 
Ec address, which corresponds to that byt="s address in the 
symbol Brain compilation. The address of the 
meeinning of the symbol table is a constant in the STMLUMP 
EE ага will have to 5e reset each tire to reflect the 
new address of the symbol table whenever the comrviler is 
Bharged. This necessitates reassembling SYTMDUMP For eacn new 
EE n Of the corpiler, after determining the starting 
H ss of the symbol table from the previous SETEL entry 
EE: Of the second entry. The output fror the STNLUMP 
ir can ba easily and efficiently scanned ty hand te 
determine the conterts of each entry. Collision address ard 
meevious entry adress pairs, for instance, can usually be 
recognized or сг; sirce the bros net 15 Rot 
ENS LL cpendent, it cannot crash dva to improper symbol table 
EE NUES. 4 description of the changes to tne CP/M utility 
EUMP.ASM is provided in Appendix C. 

Examirirg the symbol tables from various test pregsrans 
net the address of the parent type of simrle 
able declaratiors was not be entered properly. In 
production EE, 

Meee Т VAR STRING? ::= CIDENTIFISRO>, 
code was added to save tne parent type. 
КОО лә ENTRSSUESNTRY procedure in SYNT31.SRC, tne 


procedure SU3RSCASE wes being called twice for tne sere 





Bait (uoper) of tre subrange. Code was addad tc modify tre 
Mona cell to examine tne lower limit ani thus correctly 
determine the number of entries in tha subreng2. 

most case statements throughout the corviler, there 
is no range checking done on the variable used to index into 
case statement. In PL/M-80, if the index eveluates to a 
number greater thar the number of case statements available, 
the result is undefined. Ir other сеске; semicolons 
representing ro-operation cases were cmitted, causing the 
Ere code to bhe executed for a giver case. Code was added 
EN rect the Index to the correct case. 

In a few instences, PL/M“M-29 address variables (1€-vbit) 
were being passed tc byte variables(£-tit). resultins in the 
ht  highk-order bits beire truncated and lest. Tre 
offerding variable declarations were corrscted. 

When tne compiler was broken into modules, there were a 
MS tantial number of variables declared PUELIC and EXTERNAL 
needlessly. When a variable was used only in the module in 
Merch it was declared, the PUBLIC derlaratior was deleted. А 
Memoer Of subroutines were declered PUSLIC in ore module and 
mot called, and declared external and called frem only one 
Other module. These subroutires were moved to the calling 
MeaulS and not declared PUBLIC or EXTERNAL. 

The displacement vecter asscciated with sach array 
dimension was being calculated incorrectly axá it was strred 
In the same symbol table entry as the subrarns2. The array 


offset (for non-zero-origin array dimensions) was being 
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ШОО (ej incorrectly. Code was added to temporarily stack 


m `; declarations ara subseauertly enter tnam into the 
H ble correctly. Code was also added to calculate the 


EE offset and tne displacsment vector for each dimension. 
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IV. REMAINING PROELEYS 


rno dentifier constant entries ir the syrtol table 
spe identified as such by the YCPM value 417, but tne sizn 
EN OL stored or apvlied to the value of tas constant. 

boys were only examined for correct identification and 
ey into the symbol table. Arrays on the right side cf th= 
Bee enment statement are not handled proverly. 

Since no interpreter has been written, trara is still no 
Ec to validate the intermediate code produced. The corpiler 
Will compile some smell test programs witnout crashing, but 
EN reguently will crash or so into irfinite loops. 

Baco inf the modules STMEOL.SEC, SYNTEL.SRC and 
t. FC cannot be trusted to Deaavs as described ir tne 
NO previcus thesis efforts. Zach ovorocedure needs tc te 
exerined on a line-by-lire basis, with a possible eve towerd 
u Ing substantial portions. In many, many cases, 
Merpiadles are ANDed or CPed with unexplaired hex consterts. 
The function of tnese corstants should be 3eterrired ani the 
Mex constants should be named and documented. In many ctner 
instances, variables are shifted lef Or DIA ara wer 
again ANDed or ORed with hex constants. Th2 snifting can te 
avoided by defining and documenting tne appropriate Tasks. 
The glotal data base should be better organized, defined and 
docurented. Variables enter procedures in unknown states, 
Ed are used or modified witnout range cnecxing cr ery sort 
of validation. Tne ranges on cas® staterent indices need to 


— 


be checked before usa, and aach case shculd te a TO; FND; 








es ales iis case, so that statements 


led will not introduce extra and erroneous cases. 
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V. CCNCLUSICNS 


PES-PASCAL 15 5 а long way from complete 
we rertatior. Major problems exist in the verse stack 
M ure, jin semantic action subrcutines and in tns svrbcl 
ENS coprstructior ard access. The zrourdwora for a viahle 
CEL compiler has been started, but the ccmpniler design 
needs a critical review erc analysis. 

Bc oneretion of tnis compiler is Still denerdert or the 
EE Iopmert of ar 8080 interpreter cr translator to validate 
Ehe pseudo operators generated. Completing the NPS-PASCAL 
compiler project will require e substantial investment of 


May and tire. 


CV 


EC 


IA 


IC 


IS 


IV 


LS 


APPENDIX A - Corviler Trror Messages 
"mron dimension stack overflow: Simplify array 
lelie Ja relii on. 
his; es! Over len: olinplify declaration. 


Assienrent type error: Type of expressior nct 
compatible with assignment variable tyne. 


imeccurOmexbressiOn-: the variable types within 
the expression are not compatible. 


rtroi variable 


correct control variable: The co 
f pe RFAL. 


С 
Has no?” beer declared or is of ty 


Mica to. constant name: Constant idantifiers 
ma. be uelovre. 


Eis; error: necorpile. 


wapin cate type rame: Type identifiers rust be 
unique. 


“von ant size error: 


Invalid expressior type: "he tynes of the variables 
used in an expression are incomnatiktle. 


valia array index: Arrav ind®z types rust De 
Selar TI Gr or PEAL types ere invalid. 


Mr id corstant variable: Corstart entry ir syrbol 
tavle is invalid. 


mMereser size error: 


proper parameier: Tne actual pa 
ПО maten toe formal peramzter typ 


j l Q mead variable: Only INTEEER, REAL or STRING 
values can to read. 


Mc id Ssubrange error: Check type ard lirits of 
declared subrange. 


Maita pune error: Arrey component type 
mecificetior invalid, 


Variant stack overflow: Reduce tne number of 
variant cases. 


Label] syntax error: All] labels rust be intesers, 


Me 





NC We co rr tel character": 


NE sore nas tus parameter: Tre actual perameter 
rust be a veriable and not an expression. 

NP Gara: Spear errar in source line. 

NS render element: Set elemenis must boe sceler. 

n Parameter errer: inis parameter format car only de 


used in a write staterent. 


PN Incorrect number of parameters: The tetal number 
Re nd carameters jaiis to egual the total 
number of fermal parameters. 


AN Record field stack overflow: Reduce tne number of 
Telis Specified. 


RT WRITESSTMT parameter error: The narameter has to 
be of type FEAL. 


SO mat? Stack overflow: simplify »rorrem. 


m 


DT MM d pe idertitier: vpe identifier rot 
previously declared. 


PO sumpol table overflow: Reduce number or declaratiors. 


JL Imaefinea label error: Label net declared ir 
label staterert. 


UO Invalid unary operator: Variable type must be 
INTEGER, REL or subrange of INTEGER. 

UP E udeclared procedure: Procedure identifier not 
previously declared. 

TN Variable aeclaration stack overflow: Feauce 


tne number of variables derlered ver lines. 


VO Variable stacx overflow: Reduce the lenetn of 
variable prirtnares. 


W P “ОООО К СТУ perameter error: The leneth parareter 
musto De-of type irteser. 


ar 





SEDRNTIX & - Irtermediate Gode TECOTE Prozrem 


Mme last thesis effert included a program called DECODE 
which will read the intermediate code file ena convert tre 


^ 


Mex pseudo codes into tae corresponding mnemonics. “he 
pereneters associated with certain operators, such as 
labels, branches ard load immediate values are printed also. 
Beer and real nurbers ere converted to decimal format. 
eines ar> displayed as ASCII characters. 

Em use the LLLOLK program, compile a PASCAL Drosram 


us ling the SC corpiler toegle: 


PASCAL TEST.PAS 


$ 
ES 
CI 
ES 
EJ 
ES 


Es successful corvilation is complete, run the 


Ba гаг on the irtermediato file: 


EURCODE T*FST.PI 


EN onterts of the intermediate file will be nrirted or the 


console. 





Be CG - S ND? 5frbo! Taole Tisuley Frogrer 


КОО mbol table displeyira prozrem was developed to aid 
Bi exerining the symbol table and debuzzirz the compiler. It 
ENE Sed on the CP/“ LUMP utility, and uses the startire 
E ess of the symbol table in rerory. 

Wo prepare tne SYMLIUMP program, the user must first use 
Ms terdard CP/? utility DUMP to dur» the symbol teble 
Mie. In this durp, the user aetermines the stertine address 
of the syrbol table by exerining the previous entry address 
Bah? Second entry. This address will change wherever the 
Er is altered, since the symocl table is assigned to 
the first available memory address after the compiler. 
EN tho CP/M utility DUMP as follows: after tne lenel 
Bor, chanze the argument of the LXI à frer © to the 
Meerting address of the symbol table; after the lebdel GLO, 
Wellete the JNZ NONUM instruction. Rename, reassermole ara 
Mad the program. The SYMLUMP prozrar is now ready tc be 


mo e the .S:Y file produced by the corpiler: 


EEUU MDUMP PP2OCPAM.SIF. 


EM UMP produces a vertical listing of the syrbcl tanla, 


ШОО tyte per line; each byte is precedad by its address in 


Bie symbol table. 





AO EE, structure 


EN VODULARIZATI ON 
Di PL/M version of the NPS-PASCAL compiler  containec 
Er 475€ lines of source code, When the compiler wes 


Mmeransferred to the Intel Microvrocessor Development System 


(D 


КОСО) ard the ISIS-II operating system, it wes broken up 
into manageable modules according to function. Each module 
now hes fewer thar 1002 lines of code, so editirz is 
Meters tated, anc corrections to the corpiler can be 
M ed much more rapidly. The two largest modules take 
MESS than 15 rinutes each to recorvile. A recorvbiled module 
me her be linxed with tre remaining modules. Malrtairing 
Mee compiler as a single, large file weuld nave caused 
mmeessively long edit sessions, az a recompile time of over 
mr hour. 

There are seven modules, sach in a sevarat> ISIS-II 
Mas file. SYSRTS.SRC contairs the interface to the €r/M 
operating system, ne MAINE the disx and console 
u I Output procedures, and the SETCHAF procedure. SCAN.SRC 
END Uns the input scanner. PARSER.S5C contains the perse2r 
Cs supporting procedures, and Tost of the global 
bles. TAELES.SPC contains the built-in symbol tabla ané 
mee Darse tables. SYMBOL.SRC consists of  vrocedures which 
Bolt: the symbol table, eitner writing inte or readine 
“ar individual entries. SYNTF1.ShEC contains the code 
Synthesizer, procedures which use the parse stacks ard which 


END: the intermediate code. STNTEZ.55C corsists solely 


E Ø 





Bath production cass statement. Source listings of the 
modules are provided following tre avpendices. 

Podulerizing the Compl EST introduced the rI/M-¿Z 
Mompiler directives PUBLIC and EXTERNAL. Any variable, 
ШОО! оп or procedure which is declered in one module, and 
referenced in another, must be declared PUBLIC in the first, 
EXTERNAL in the second. Functions and procedures which 
have arguments must have those argumerts ir botn 
declarations, also. 

meee REX switch of the PL/M-&@ compiler causes a 
H reference to be avpended to the Source listings. The 
woss referenca contains sach source pregrar identifier 
Ml, constant, variable, function or vrocedure, wnich 


MUS in the program, along with the line nurber cf its 


ta, 


RENO occurrence, the line numbers of ary references to 


I Or COP ALE. * bo 


C 


ta 


Er, and whether it is declared PUB 
Cross reference Jos very Usetul tool for locetine 
Bientiflers. 

MMS TXREF switch of the PL/M-80 compiler causes a 
temporary file with an .IXI extension to be crectei, which 
Eontains information about each EE O erd EXTERNAL 
Meciaration in the source program. These .iÃl files, one for 
each source module, are later collected and consolidated dy 
mre LARPEF program, which produces an inter-rodule cross 
EN ncs listing. This listing contains all PUELIC and 
MATERNAL identifiers, and nares the module in which tre 


Meentifiecr was declared PUFLIC, and lists all modules which 


el 





MS an EXTERNAL reference to it. This list is also very 


Mseful durirg debugging. 


B. LINKING AND LOCATING 

[meres compiler, now separated into modules, must de 
EE Dired to form e body of executable cece. This is 
mecomplished by the LINK and LOCATE programs. “he LINK 


SI 


3 


(D 
л 


ШО гат adds code from each of the modules end 115 


J 


+ 
ta] 


| 


у» 


= 


BN erenced linearly, to form a single file. The LOC 
meoerd™ locates the code at a particular address in rerory 
Mad justs ell of the relocetable eddresses into absolute 


addresses. 


КОО TRANSEEE 7304 1SIS-II TO CP/M 

ШОО the complete compiler has beer оса ес and 
adjusted, it needs to be transfered from the ISIS-II based 
system where the PL/M-&0 corviler resides to a CP/M based 
ШОО Ет for execution. Tris is done with FROMISIS.COM. an 
E documented program which rurs under C2/M and reeds a file 
EE ar ISIS-II format disk onte a CP/M format disk. The 
Mi ier is then processed by the undocumented prorrar 
ESJCPM.COM, which strivs off any sm a De nt Orman, 
Ma IMP instructior to the entry voirt to the beginnrire 
0f the corpiler, end creates the executable forr of tne 
Compiler. The symbol table information is placed ir separate 
Mees With .SYM and .LIN extensions. These files cen be 
deleted if empty or not used, cr they can be saved for use 


ШОО the debugzirg tool SID. 





DC EXECUTION ANI IFFUGCIAG 
E invoxing N?S-PASCAL or a PASCAL vrogram, tne 


ma ie: is treated as ary other program under CP/r. Along 


En un the file nare of the PASCAL program to be compiled, 
ma 5015 accepts up to four switches which cause it to 
Meee «the console the PASCAL source code, the production 
Eumbers, the token numbers, and cause it to suppress 
Breatior cf the intermediate file. 

ME acilities of SID, tne CP/M Symbolic Instructior 
Messer, permit run-time debuggirs and executicr tracing of 

m 


the corpiler, KO се Sb Hi is reeesserr tó include tae 


PL/M-EZ compiler D£FUG switch when compiling the module of 


Gi 


interest, The 


% 3 
ct 
O 


ш "Switen causes tre Fired cor vile 
Bade idertifier ard lin@-numoer loratiors with the file. 


` 


Mee inforration is later stricped out dy tne ORJCPM.COS" 


r< 


Bin into the PASCAL.SYM ard PASCAL,LIN files. These 
EN are loaded by SID end used to refererce and identify 
ШЕ ие rachire addresses by S Gi oO Le expressions. 


#ifective debuggine of tne compiler requir 


iD 
A 
CU 
+ ds 
IÐ 
ct 
(D 
pte 
| 
(V 
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knowledge cf the operation of SID as documented in tre SIL 
Meee ental. In trarsferrirs the compiler from ?PL/M to 
BI/M-E2, it was necessary to shorten some of the identifier 
EE oe tO less thar 1€ cnarecters to meet the recuiremerts of 
BID. 

Min order to ascertain the prover operatior of the 
Mempiler, it is also necessary to have accurate xrowledge of 


MRE PASCAL language. To ensure testing the corrilsr with 





Prosrars of proper PASCAL Syntax, most test rrosrers were 


Eu either from tns Pascal Manual and Revert cr the Pascal 
Validation Suite. 

Mee entire compilation, lining and loading, transfer to 
CP/M, execution and debugsing process is documerted ov 


example ir Avpendix E. 


fp 
iP 


МОО CONTEA LINK ard LOCATT Instructions 

mais appendix provices step-dy-ster directions for 
ШЫ пе the NPS-PASCAL compiler, linking and locating the 
Bo ject rodules, eeneratins enosserelereree Isis, 
BH erincs tne compiler to a CP/M based syster, and 
Executins and Ceon e ine phe compiler. For ‘altitionel 
EN ratiorn about the ISIS-II system, see Refs. 11 - 12. For 
additionel information about nveration under tne a: 
Wim, see Ref. Le, 

Ene NPS-PASCAL source files ere corpiled, lirxed and 
id under the ISIS-Il operating system. First, compile 
RR podule with the appropriate switches to the PL/M-Ed 
Mompiler: 

RREO :FPi1:SYSBTS.SFC XREF IXREF DATT(22 MAR EJ) DERUG 
MEMES :F1:TAPLES.SAC XREF IXREF DATF(29 MAR 22) TEFUC 
eg pi: Paez, pt XRET IX277 DATE(29 MAR SC) DE3LG 
INE? :F1:SCAN.SRC YREF IXREF DATE(29 MAR 60) DITTUG 
Meo PI :SVMECL.SRC XREs IXRAF TATE(20 MAR 86€) TEFUC 
NE? 211 :SYNTE1.SEC XREF£ IXREF DATF(25 MAR 97) DEBUG 
PENE) :T1:SY1NTH2.SBC XREF IKREF DATF(2S MAR E2) IFTUG 
Bro Space liritatlons on e sinzle disk, it rey oe 
“N ru to copy the .LST files to another disk as they are 
Me ted, or to redirect tne .LST file to the :T2: disk 
with the PPINT switch: 
BUINEZ :F1:SYNTF1.SFC XREF IXR PUSE? INTO nI: SYNTH] DST) 


a) 
VI 





EDI ceste pe mie m0 dla cross-reierence: 


КОШЫ i copy of the inter-module cross reference is very 
Eur durirg isbugglrneg. 
A "SUBMIT" file hes been created te facilitate th 


Mine and LOCATire process. If a different LiNfing or 


^ 1 


EE р; command strings is desired, it cen, of ccurse, be 
erterei by hand. To invoze the prepared file: 

MIT :P1:PASCAL 

me ie :F1:P85CAL.Col used by tne SUEMIT comman ee ogie 
SO foll]owinz corrard lines: 

ETE 3F1:PASCAL,LNX, :F1:PASCAL 

N EA ELES. 033, : 51:35 YSRTS.02,:31:5YY30L.C02,5 

ee OBJ,:FI:SINVTVEZ.OBJ,:7P1:PAÀRSFF-".O2J7,:7i1::RIN1.054.,S& 
Memeo O30, 3 TAs PLMES.LIB TO :F1:PASCAL.LNX Kan 

MG A TE :F1:PASCAL.LNX CODE(1237) MAP 


^ 


EXeGecution Of these lines will create tre files 


BersPASCAL.LNK and :Fl:PASCAL. 


E - tne TISIS=II disk contairizrs tne NFS-PASCAL 
Ser in drive 1, insert and voot a CP/M disk in drive ð. 


NO Or/Y disk must contain, aroce other ovrogrems, the 
Mees FP OMISIS.COr, ORJCPM.COM end SID.COM. Transfer the 


ME PASCAL compiler from the ISIS-II disx to the CP/ disk: 





Freak EU HE a cun files and ada the ¿MP 


EE ction to locations 1JðdF, 1215, ana 1227 


Me CPM PASCAL 


Eu comTand Will create tnree files from tne PASCAL file: 
BU CAL.CCM, the executable compilar, ES SY ane 
eet KEN, Che files cortairins symbol table inforration 
"the run-time debugger SIL.COM, “hen debugeinz witr 
EN OOM, it is useful to neve printed copies of the .SY ard 


BN files. The file PASCAL (with ro ertersiori cer be 


lieti. 
RM o PASCAL Source proeram, for example Tiso, 245, 
mean available text editor. Invoke tne Ne Seen Schr 


mompiler: 


BL TIST.PAS 


ie four switches may he vrovided to the NFS-PASCAL 


Moller through toe CP/M parms field irmeaiately following 


Mile specification: 


A>PASCAL SACE 


3 
vi 
UN 
H] 
vg 


A 


Cn 


meaninzs: 


(C2 Al Gs 
| 


E ist 
list tie 
Suppress 
List the 


the source programs lines. 


Là — 


creation cf 
toren numbers. 


boe Sr. CTUMLETrS. 


the interrediate 


Mominvoke tre run-tire debusser SIT.CCM: 


MOS TE PASCAL.COP 


BID VERS 1.4 


BCE ROL: 
EX DC 


ENI 


ero" C109 C278 
EU PASCAL.LIN 


PR 


#I TEST.PAS SABCD 


Mer set vo pass points, 


detailed 


deDu£ger, 


Шоо ргыс сг» 


See 


Ref. 


lx 


RNSC AL Sr 


Se, and ae ue 


ir 


the Se Of 


Jo 
Со 


as 


ol GC 


£ 


tne 


1 


1 


e 
= 





A Eis: l rectories 


MEGUNPS-PASCAL comviler is store on two 1515-11 forrat 


Becke with directories as follows. 


Meee source files, the corniled object files, and the 
Meee files are on the first cisx: 


ENCEOTOPY OF :71:D*8US 


EE .F*XT RLAS EE 
MOP Y Se ent? 
Ble +C DADO 
AINT .CEJ 2 EN 
BIN SRC Sc 10242 
EESSHTS.IXI E 549 
Beck" CS OB 453 este 
BM OGL.SRC 241 27277 
FAN .ORJ 31 JEDO 
BECKERS ANIL “ÚC Sg <<="? 
PARS in .08J Se ESG: 


BONVFT.SFC 4377 


57 
BAE] SAG 443 Bone 
H =l.C3J 164 cer 
BF 2.0RJ 135 (Ке са 
CES, OB. Sa LIET 
ISC AL.CSD ð EG N 
SR IK 15 1 
Beers .S RC ES Lias 
EC] .IXI D 1982 
ESSCAL.LNK 48% C 2556 
me CAL cee LES 
EH? .IXI 16 1387 
ME FOL.OBPJ Sy 12844 
Meee Oe SRC 112 15236 
Eh, SC 72 9604 
TEN IXI + cel 
BLESS .IXI c 16 
ENMSBOL.IXI li 1264 


JD 
О 


RR con) disc consists sol=ly of listing files, Gre te 


Meir large size: 
sð 0f :F1:LISTIN 
NAME „ут BLES LANGTE ATTR 
EMORIS.LST 245 57771 
LAN .LST 197 24663 
MES TES .LST 12 15794 
BERSFE.LST 3546 SE4I2 


Mn bl. LST leer Weegee 


EE ka ` Sail 114569 
RDL .LST 543 сг 
ШО .LST 95 lac re 
MONVET.LST 08 B764 
Ú 515-11 system disx used during the development of 


ME NPE-PASGAL compiler contains the following: 

BUGOY OF :F2:ISTS 

КОК .ZÃT BLKS DNE ATT? 
TED ker 1C 5951 y 
BUNT .05J z 73 W 
TOPY eS ECL W 
SR FF 55 4229 W 
ATTRIR SE Acer W 
men Ce J 25 599G W 
LE TE 57 4595 WW 
DER 4€ BASI Y 
TRA S ESSI Y 
FORMAT 49 COSE N 
BEES TOT oo i2cl w 
HIAS í 5@ Esoo W 
IT 3 32 17227 W 
LINK 11+ 1429E Y 
LOCATE 108 ESOO 
OBJREX 27 ¿Lat Y 
QENAM® ai 2287 W 
BUG MI T JE 4629 W 
NS 172 elEES W 
IPE 5 AGE Y 
E RZF Be As ie VW 
ENS" .LI3 45 Bet N 
Med .0V4 152 DSL W 
EF .OVi 25 со? y 
Lee .012 ong BISE Y 
Meme? .OVS 165 TSI a 
PLMEO .CV4 Rz 6622 W 
GI”! LIB 24 2516 Ww 
monk .OVL Zo S451 W 

2e 





515.076 


5PATEWIDTE (30) Nia SH IS TEN SUPPORT POUTINES') 
EISSROUTINES:DO; 


PY INTERFACE ROUTINES */ 


MAR: LIT LITERALLY LITERALLY’ 
HG EIS EXTERNAL”: 
da LIT ^15- 
DE LIT OAR” 
pon LI? DECLARE", 
PROC LIT “PROCEDUR?” 
HUE LIT 17, 
MDR LIT ATERISS” 
MESE LIT ^e, 
HÚLFFOF LIT 1, 
FOREVER LIT “WHILE TRUE’; 


, 


DCL 

FOLCHAR LIT "ong", /* END OF SOURCE LINE CEARACTEP 
* / 

TAB LIT “095”, 

OUR CARECS1ZE LIT “128”, /* SIZE 0% SOURCE FILF 
RECORD */ 

INTRECSIZE LIT 128°, /* INTERMELIATE FILE RECORD 


de ME TERS IT LIT 82°, /* SIZE OF CONSOLE EUVFER */ 
REEL EE LIT '"14a^; /* CHAR FOR LAST RECORD ON PILE 


É / 

/ Eee ste ye ste zie te sx ente nic de de de ste ate ate ate aig ate sic ace RE NERE NE NE NO SS AE AE DE EE NE NE NEI RENE Nu e de sie gie d / 

E GLOBAL. TARIABLES su | 
pay 

/ EE E We EEE A IE Ze de de de de de dee de ale ds de de se ale ae de de sie de 7 

DCL 


/* COMPILER TOCGLES */ 


His HS OUREE BYTE EXT, 
NOINTFILE EYTE EXT, 


BEAT VARIABLES */ 


PRODUCTION BYTE EXT, 
TOKEN BYTE EXT, 
ОО ОПУ(З2) BYTE TIT, 
NEXTCHAR BITE EXT, 
Mis TSSBTELSIT ADDR EXT, 
1 COUNTERS */ 

DOO LITERALLY “25 ,/* EOF */ 
PARMS ADIR i INITIAL(EDE), 
EPPORCOUNT ADDR PUBLIC INITIAL(O), 
CODESIZE ADDP PUBLIC INITIAL(2), 
NEIN INITIAL(I@¢@¢ .i120,1¢,1); 





“lo vio nio wie ale ate nto ale ulo ala alo Wo SRG als vo ana ulo ulo nto mla vis nio wie nio vis n'e vite ato ale ala ulo vis n'e nio ale ale ale of vis ale qts ate ate ats ale ate ale 
he eu ^ > nr er ^" ey ns > m. kWh vs vye ^ > > em ^ > оге ЫЫ Zen ^ eg ы ы ey ep ЫЫ ыы 23° m. ^* Ld hd e eye > As > Ld hd Ld hd > > eq eye eq ey e өү» > ^ ka 


SYSTEM DEPENDENT ROUTINES AND VARIARLES * 


EU P FOLLOWING POUTINES ARE USED BY TEE COMPILTR * 


TO ACCESS DISK FILES AND THE CONSOLE. TEESF * 
ROUTINES ASSUME TER USE OF TEE CP/M OPERATING 


STEM. * 


TEE FCR S ARE USED BY TEE SYSTEM TO MAINTAIN 
INFORMATION ON OPEN FILES. THEY APE ONLY USED BY * 
PROCEDURES IN TFIS SECTION. THE RUFFERS AND POINTERS * 
TO TEE BUFFERS ARE USED BY THE REMAINIER OF THE * 
PROGRAM, BUT THEIR SIZE MAYBE VARIED TO SUIT TEE DISK : 
OPERATING SYSTEM BEING USED. * 


. wlo alle vio ale o! tonto wie wie ste sloe nte ulonto sie ai Ion te vio af cate a 
RE AE de de NS AEE die HIKE DS AE SE RE he XE DIS Die AS ES ERAS DR DRI DC NS ON DU RSA DS ROD DR DER AK OK IS K RIE BIE SIS BIS IS RENON 


NOTE: CP/M PROVITES SCH AS FCE AREA AND ELE AS A 
E 


PROGRAM USE */ 

RYCBADDR ADDR INITIAL(SCE), 

RFCR BASEL RFCRADDR(33) BYTE, /* SOURCE FCB */ 

WFCB(33) EYTE /* INTERMEDIATE FILE FCB * 
ANA O. PINAG. 

SFCB(33) BYTE /* SYMBOL TABLE FILE FC3 * 
E Ee E EE 

SBLOC ADDR INITIAL(80E), 

SOURCERUFE PASED SBLOC(SOURCERECSIZE) BYTE, /* 


SCURCE BUFFER */ 


SOURCEPTR BYTE INITIAL (SOURCERECSIZE), /* BUFFER 


INDEX */ 


DISKOUTEUFF(INTRECSIZE) EYTE 

SYVOUTBURS(INTRECSIZE) BYTE, 

BUFFPTR BYTE INITIAL(255), /* BUFFER INDEX */ 
SUP PITE INITIAL(259), /* SETEL BUFFER INDEX 


p/ 
LINEBUFF(CONBUFFSIZF) BYTF, /*CONSOLF OUT BUFFER */ 
EINE ITR BYTE INITIAL(OG). /* BUFFER INLEX */ 
BDOS ADDR PUBLIC INITIAL(SH), /*JMP TO 0/S FNTRY*/ 
BOOT ADIR INITIAL(GE), /“REFOOT ENTRY*/ 
LINENO ADDR, /* CURRENT LINE NUMBER */ 
STARTBDOS ADDR PUBLIC INITIAL(6H);/*PT8 TO START OF 
EDOS*/ 
RR AGR ed 
Mc LOOP AL P R 0 È E D U x RS 5 Z 
Ee NEE ad AD Dans Sie Dede SEN nie Se pig ala ptc ale nig MEDE AE AE RENE N > un. / 


moves PROC (SOURCE,DESTIN,L) PUBLIC; 
MOVES FM SOURCE TO DESTIN FOR L BYTES */ 


DO (SOURCE, DESTIN) ADDR, /* L < 255 BYTES */ 


(SCHAR BASED SOURCE, DCHAR BASED DESTIN,L) BYTE; 


92 





TE a = 1) <> 255; 
EC P IS Н; ) , 


DESTIN DESTINA E 
SONS Fe 
FND; 
END MOVE; 


FILL: PROC (A,CEAR,N) PUELIC; /* MOVE CEAR 
MERDA ADDR,(CHAF,N,DEST BASED A) BYTE; 
DO WEILE (N := N =1) <> 2555 
BSS CHARS 
Ae 1; 
END; 
BUD FILL; 


/ MONITOR 2OUTINES */ 


MON1:PROC(FUNC, INFO) EXT; 
BL FUNC BYTE, 
INFO ADDR; 
END MONI; 


MON2:PROC(FUNC, INFO) BYTE 
Der FUNC BYTE, 
INFO ADDR; 
END MON2; 


hay 
rs 
H 


PONS: PROC PUBLIC; 
CALL BOOT; 

END MONS; 

E/O ROUTINES */ 


PRINTCHAR:PROC(B) PUPLIC; 


A SAT THE ASCII CEARACTER P TO ` 


DCL B 3YTr; 
EE MON] (2, RB): 
END PRINTCEAR; 


PRINT:PPOC(A) PUBLIC; 
/* PRINT TEE BUFFER STARTING AT ADDRE 
BOT A ADDR; 
STD MON1(9,A); 
END PRINT; 


MEAD:PROC(A) PUBLIC; 
MER EAD CONSOLE CEARÍS INTO BUFFER A 
DCL A ADDR; 
CALL MON1(10,A); 

END READ; 


BRLF:PPOC PUPLIC; 
ES ENP OARRIACE-RETURN-LINZ-FZET TO 
CALL PRINTCFAR(CK); 


(EA ME as 


S AUEL De 


alo 
>) 


de GAS OER 


alo 
” 





MALE PRINTCIAR(LE); 
WW CRLF; 


BRINTLEC: PROC(VALUZ) PUBLIC; 
DEL VALUY ADDR, I BYTE, COUNT BYTE; 
REL FLAG BYTE; 
ШИС = FALSE; 
KM = 2 TO 3; 
MOUNT = 30H; 
DO WHILE VALUE >= DECI( 
VALUE = VALUE - DFCI 
FEAC= TRUBS; 
COUNT = Cour + 1; 
ENT; 
Ii FLAG OR (I5)”- 3) TEEN 
Gn PRINTCFAR(CODNT ), 
ELSE 
GEL PRINTCEAR(” ^); 


I 
| 


PA Kag 
. 


i 


END; 
END PRINIDEC; 


PRINTSTOKEN:PROC PUFLIC: 
ME PRINT(.( TOKEN = s”); 
BALI, PRINTSDEC (TOKEN): 
ET PRIMT(.(^ $^5); 

END PRINTSTOXZN; 


PRINTSPROT: PROC PUBLIC; 
mere PRINT(.(° PROD = $1); 
NND PRINTSDEC(PRODUCTION ); 
BET PRINT(.(° s5*)y; 

END PRINTSP20D; 


PRINT$SZRROR: PROC PUBLIC; 

BALI CRLF; 

BALL PRINTDEC(ERRCRCOUNT); 

MON BE INT(.(” BEEOR(S) DETECTEDP”,GR,LE, $^) 
END PRINTSEP ROR; 


BRROR :PROC(ERRCOLE) PUBLIC; 
DCL ERPCODF ADDE, 
NETTE, 


WRRORCOUNT=ERRORCCUNT+1; 
BAD CRLF: 
CALL PRINT(. (“ua $7)); 
DALL PRINTSDEC(LINENO); 
BULL PRINT(.(" EPEO? $^)); 
BALL PO INTCEAR(EICH(ZBRCODE)); 
CALL PRINTCEAR(LOW(ERRCOTE)); 
CALL PRINT(.(% NEAR 5)); 
MO T=1 TO ACCUM(2); 

SATT PRINTCHAR(ÍACCUM(I)); 
END: 
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CALL s AT FRROR у): 
ALL PRINTSTOKENG 
CALL PRINTSPROD; 
IT TOKEN=TOFC TEEN 
DO; 
CALL PRINTSERROR; 
GAT MONS; 
END; 
END ERROR; 


DISKFRF : PROC; 
CALL ERROR ("DE ); 
CALL MON3; 

END DISXERR; 


OPINSSRCSFILF: PROC PUBLIC; 
RLL MOVEC.( PAS”), AFCEADDR+9,3);5 
BECR(2Z2),RFCB(12) = 9; 
RO MONZ(LS,PFCBADDR) = 255 TREN 
BO); 
CAI AS ), 
CALL MONG; 
END; 
END OPTNSSRCOSFILE; 


DEADSSRC$FILE:PROC BYTE; 
Ber DONT BYTE; 
La (DCNT:=MON2(22,RPCBADDR)) > FILETO 
CALL DISKERR; 
RETURN DCNT; 
mi) READSSRCSFILE; 


kx 
p 


Ej 


BUDUPSINTSFIL:PROC FUPLICS 


HB INT ILE TEEN /#ONLY MAKE FILE IF TOGCLE OFF*/ 


RETURN; 
DD) NOVEL.AFCB,.1F 
CALL MON1(19,.WrCE); 
IF MON2(22,.WFCB)=25 
CALL DISKERE; 
/* SET UP SYMBOL TA 
ATL MOVE(.R7C3,.S 
SFCB(32)=4; 
West a2) = E; 
CALL MON1(19,.S7C3 
ie MON2(22,.SFCr)= 
CALL DISCERR; 
END SETUPSINTSPIL; 


WRITSINTSFILE:PROC PURLIC; 
IF NOINTFILE TEEN 
RETURN; 
ШОТТ. MON1 (2E, .DISKOUTBUFF); 
IF MON2(21,.WECE)<>@ THEN 
BALL DISETRR; 


(D 
сл 





AL MON1(2€,805)3 /* RESTI DMA ADDF */ 
MID WRITSINTSFILE; 


Met: PROC(CRJCOLE) PUBLIC; 
DOL OBJCODE BYTE; 
BR (SUFFPTR := BUFFPIR+1) >= INTRECSIZE THEN 
/*WRITE TO LISK*/ 
DO; 
UP WRITSINTSFILE; 
EUFFPTR=@;3 
END; 
BNSKOUTRUFF(PUFFPTR)=0BJCODF; 
ENT EMIT; 


EEUPREATF:PPOC(OBJCOIE) PUBLIC; 
BOL ORJCOCT BYTE; 
MOTESIZE=COTESIZE+1: 

MEL EMIT(OBICODE); 
END GENERA 


CENSADDR:PROC(A,E) PUBLIC; 
BOT A SYTF, 3 ADDE; 
CALL CENTRATE(A); 
BALL CENT B" A 3 
BALI G*NYRATE(EIGE(3) 

END GENSATD2; 


B 


WRITSSYMSFIL3: PROC FUBLIC; 
IF NOINTFILF TEEN 
RETURN; 
EL MON1(26,.S 
IF MON2(21,.STC 
BULL DISKERR; 
CALL MON1(26,&@E); /*RESTT IMA ADLF*/ 
FND WRITSSYMSTILES 


uc EI RI pk) š 
2)<>! THEN 


GENSSYMTEL:PROC(NBJCODE) PUBLIC; 
BA OFJCCLE BYTE; 
Jo (SYMRUPFPTE:=SYM3UPFPTR+1)>= INTRECSIZZ TERFN 
/*WRITE TO DISK*/ 
pos 
GEET NQITSSYUSFILTF, 
SYMPUFYPTR=45 
END; 
SYMOUTRUFF(SYM3UFFPTR)=0BJCCDF; 
END GENSSYMT3L; 


MOVESSETRL:PROC FUELIC; 
DCL SYMPTR ADDR; 
DCL VALUE BASED SYMPTO BYTE; 
PO SYMPTRZ.MEMORYI TO (LASTSSETPLS$II - 1); 
CTL ANS VABUR); 
END; 
BETT EFNSYMTEL(C); 


YE 





E 





G2 

rj 

Cn 

rd 

< 

3 
tg Lohn 
FER 
— —— 
N NG 
gege degen 


BULL CENSYMTEL(ZOFFILLERY: 
CALL GYNSYMTBL(ECFFILLER); 
ШАТ WRITSSYMSFILE; 

END MOVESSETBL; 


MIOSESINTSFIL: PPOC PUBLIC; 
P-CLOSE INT CODE FILE AND SYM TARLY FILE*/ 
NE NOINTFILE TEEN 
RETURN; 
IF MON2(16,.WFCR)=255 TEEN 
BENTL LISKERS; 
IF MON2(16,.SFCB)=255 THEN 
BALL DISKERE; 
END CLOSESINTSFIL; 


CLTARSLNSBUFF:PROC PUBLIC; 
MEL FILL(.LINERUFE,” ’,CONDUPFISIZE); 
END CLEARSINSBUEF; 


BIEUTINT: PROC(LENGTE); 
MED (LENGTH,I) BYTE; 
LL CRLF; 
CALL PRINTSDEC(LINZNO); 
RLL PRINTSCEAR(O °); 
Ki sg TO LENGTH; 
NEL PRINTCHAR(LINEBUFF(T)); 

END; 
ETL CRLF 

END LISTLINF; 


` 


/* SCANNER INTEPFACE */ 


CEAR: PROC BYTE PUPLIC; 
IMSS ECSCHAR: PROC RYTE; 
RETURN SOURCEBUFF(SOURCEPTA); 
END NXTSSPCSCEAP; 


BEECKFTILE: PROC BYTE; 
FO FOREVER: 
MON IR PTP: F SOTROPPTA+1)D=SOURCERFCSTIZT TETN 
DO; 
SCHERE TREE: 
IP READSSRCSFILT-FILEECF TEEN 
RETURN TRUE; 
ENT; 
IF (NFEXTCEAR:-NXTSSRCSCHAR)O?L? TEEN 
RETURN FALSE; 
ENT; 
ID EE EMT TS 





) 


IF CHECKFILE OR (NE 
TO; /* EOF REACE 
сло. Г 


FFILLFR) TEFN 


RoS E 


T 

Г 
OPEN Ore LE) SBLOC, EF): 
SOURCEPTR = 2 
NEXTCEAR=NXTSSP 
END; 
LINERUEF(LINFPTR:S=SLINEPTR 4 1)-NEXTCEAR; /*QUTPUT LINE 
RE NEXTCEAR = SEOLCEAR TEEN 


DC: 
LINENO = LINENO + 15 
RI SESCURCE TH) 

CAP IST LINECTINEPTR-1 )5 

panon - 7: 
CALL CLEARLNEUFF; 

END; 

IF NPXTCFAR 3 TAS TEEN 
ca Aa = s; 


RETURN NGXTCHAR, 
END GETCFAR; 
ENT SYSSROUTINES; 


(O 
m 








WARS LIT LITERALLY LITERALLY’ 
BERN: DO; 
Re ES", 
Rec TIT ZPROSEDURT ‘, 
ED EXTERNAL 
ME LIT 1, 
ОТОО ТТТ ADLDARSS ~ 
EASE IT "27, 
BO ED TIP “PRE, 
UNCOMMTNT LIT “7DE” 
FOPEVER LIT “WSILE 


к] ES 


RUE”; 


O IDENTSIZE LIT ‘32°, /* MAX IDENTIFIFÀ SIZ® + 1 */ 
an AE LIT D3, /# FND OF SONZCT LINE CHAFACTER*/ 
TASUMASK LIT “127%, /* HASUTARLE SIZE -1 */ 
EG NA LIT 27h", /“CEAR USEC TO DELIMIT 
STRINGS*/ 


/"“NUMRER TYPES */ 
W ESTI? LIT “1”, 
UNSISNSEXPON LIT “3”, 
ES TYPE LIT “2” 
SENA DS UPON LIT “4”: 
/ GLOBAL VARIARLES */ 


ML ISTSTOXEN PYTE PUBLIC INITIAL{FALS?), 
MIS TSPROD EYTE PUBLIC INITIAL(FALSE), 
BISTSSOUBCK E A irr) 

) 


— 


DFRUGSLN RYTE PURLIC INITIAL(FALSE 
NGINTFILE Sons PUBLIC INITIAL(FALSE), 


eee VAR TASES USED 37 Tat SCANNER *, 


EDO CE GMT, / TYPE OF TOKEN Just SCANNEL */ 
BEDA Pa Bat, /~ BASS VALUES Cr CURRENT TOKEN 


ee EYE PUBLIC, /* CURRENT CHARACTER TROM 
z / 

Ge О О, /* INDICATES PULL ACCUM--STILL MORE 
КО ОШ ШЕ УУ) ЕСЕ EXT, /* HOLDS CURRENT TOKEN 


HULE ERG LIT DEE Ee 
SR LIT 55º OTING 
PANGET "558 5/4 IDENTIFIER */ 

O LOCAL VARIABLES */ 


BEL LOCXFI BRYTE,/*TRUS WEEN CETCHAR EAS ALREADY RETURNEL А 


(o 
o 





FAR“ 
E TÉMPCUARA BYTE, /* HOLDS PREVICUSLY SCANNED CEAP >/ 
TEMPCEARZ BYTE; Der PARPLIST (O) PATE ENE EE a 


DECLAPE VOCAB(172) BYTE INITIAL 
Cees o): E S ) 


Ú 9 ° , ° ? , 
e , r Per r ^ 
e “Ad c pO. IF, IN 
, 
MOMO, NILO, “NOT”, “SrT” 


N Gere Ed. TYPE, WITRE; “ARRAY” 
? 


G p3 K4 


NTIL us So "CRACYTD.-- RECORD" 
“BROCRAM” IIC IION PR r IR: 


DO VLOC(12) BYTE 
BANO .1,17,33,23,91,121,145,152,160)5 


BUAN UM ia) BYTE INITIAL(G,1,17,25,235,42,46,53,56€,57); 
N COUNT (19) BYTE INITIAL(C,15,7,9,6,7,7,0,0,0); 
Zë GLOBAL PROCEDURES */ 


DECLARE PARMS ADDR PITERNAL, 
TYPENUM BYTE EXTERNAL; 
MINE + PROC (SOURCE, ,DFSTIN,L) EXTERNAL; 
DCL (SOURCE,DESTIN) ADDR, 
IER 
END MOVE; 


BPROF SPROC (ERRCODE) FYTEBNAL; 
DCL ERRCODE ADDPI 
END ERROR; 


MEE NSSRCOSTILE: PROC EXTERNAL; 
END OPENSSRCSFILES 


CLEARSLNSRBUFF:PROC EXTERNAL; 
END GLEARSLNSBUFF;) 
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Ak 
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ESUCEAR: PROC BYTE EXTERNAL; 
END GETCHAR, 


GTTNOBLANX: PROC; 
EN (СЕТСЧА = 7 “) OR (NEXTCHAR = FOLCEAR)); 
ENT; 

END CGETNOBLANX; 





INITSSCANNTR: PROC PUBLIC; 
BÓL COUNT 2YTE 
ÆTT 
Io; 
GAIL MOVE(PAPMS,.PARMLIST,£E); 
mE PARMLIST(¢)=" $^ PERN 
DO WZILE oe SO OS 
IF (COUNT -COUNT- eiu A TERN 
To CASE. COUNT 
LISTSCURCE. XU E 
Du “mor; /* R %/ 
NO DER = TIGE; /# : ж / 
ООР Г ОЕ = Teun; f= D =Z 
ШОРО TR s cw m 
END; /* CF CASE */ 
END; 
MEL OPENSSROSTILE; 
i CLEARSINSEUFF; 
CALL CETNOBLANK; 
PND INITSSCANNER; 


n 


> 
^ 
Ñ 


MS DIE AK fe ak abala e e de d AE ARIE AE ie Í SS > 3 
E PN 
E CANNER ^ 
ale ðo wl U mi mi, mi * ate ate ot mi 
HS IE BEAT AS AS AE BE AS Tis BS HE ENE NE KIL AL RA KEES EE KEE KENE ^ A 


BCANNER: PROC PUELIC; 


PUTINACCUM: PROC; 
IF NOT CONT THEN 

ГО; 
ACCUMIACCUM(Q) ce «i VETO 
HASHCOTE = (HASACOLE+NEXTCOUAR) ANT SASTRASI; 
IF ACCUM(Q) Sl CONT = PRUE; 

END; 

END PUTINACCUM; 


PUTAWIGET: PrOG5 
EL PUTINACCUM, 
CALI CETNOPLANX; 

END PUTANDGET; 


PUTANDCHAR: PROC; 
CALL PUTINACCUM; 
NEXTCEAR = CETCEAR; 
END PUTANDCEAF; 


NUMERIC: PROC BYTE; 
RD MNRE TEEAE ~ a’) <= 9; 
END NUMPRIC; 


MOWERCASE: PROC BITTE; 


RETURN (NEXTCIAR >= 617) AND (NTXTCEAR <= 727); 
TND LOWFRSCASE; 
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ze < 
Pre Ne NE DORRE. 
END DECTMALPT, 


CONVSTOSUPPER:PEOC; 
IF LOWERCAS= TEEN 
NSXTOSHARZNFXTCHAR AND 575; 
END CONVSTOSUPPER; 


BUTTER: PROC BYTE 
CALL CONVSTOSUPPER: 
RETURN ((NEXTCHAR - A’) 
ONG LETTER: 


ÆN 
l! 
IN) 
O 
— 


DME TANUM: PROG BYTE; 
BE TEN NUNEELG OR LTTITZ j 
ENL ALPHANUM; 


SRIOOLNUMEIC: PROC; 
TOSS TLE NUMERIC; 
CALL PUTANDCHAR; 
END; 
END SPOOLNUMRIC; 


SETSNEXTSCALL: PROC; 
RS n (NFXTGPAR=3:0LCRA2) THEN 
CALL GETNOBLANK; 
ПОТ = FALSE: 
END SFTSNEXTSCALL; 


LOOLUP: PROC BYTE; 

DCL MAXRWLNG LIT “9”; | | 

DOL ETR ADDF, (FIELD BASED PTR) (5) BYTE; 
DOG I EITS; 


COMPARE: PFCC BYTE; 
RK 
EE 
DON AA DA) ACCUSE = DT + 1)) AND 1 

<= ACCUM(2); 
END; 
RETURN I > ACCUM(@); 
FND COMPARE; 


IF ACCUM(G) > MAXRYLNC TEEN 

PYTUEN FALST; 
PTR=VLOC(ACCUM(2))+.VOCAB;3 
NONE NIE MUNeCUMOB)) TO 

(UNUM(ACCUM(@))+COUNT(ACCUM(@)))3 
IF COMPAPE THEN 
EO; 
NOR ENE 


da 





RETURN ops: 
END, 
PTR=PTR+ACCUM(G)$ 
FND; 
DETURN FALSE; 
END LOOXUP; 


CUECKSEXP: PROC; 
/* THIS TAKES CARE OF EXPON. FOTM */ 
VI EYTCFAR = 2 TZEN 
DO: 
TYPENUM = UNSIGNSEYPON; 
CALL PUTANDCHAR; 
BA NGXTOHAR = =° ON NEXTORAR = “+° TETN 
DO; 
CALL PUTANLCEAR; 
TYPENUM = SISNEDSEXPON; 
END; 
CALL SPOCLNUMRIC; 
END; 
END CHECK SEXP; 


"e sie ate Le sie > cs s >< ec oe E nio de de lo nio atv ate ala 
> Py as > pd “es + 


SCANNER - MAIN CODE seo ial 


ms 3 zx se Es se ese ale ate wa Se: ale ate Ve ale ale ulo se vis ato slo ala ms ala nto Wo a nio n'e Je vis vio alo Jo ulo s. ale q 4 als 
SAO tas AA ALT LL SAT AA AS AAS AS SE DEAT FAT, e, à eR ES. 


DO FOREVER; 
EGO). HASECODE, TOXEN = Ç; 
IF (NFXTCHAR = STRINGDELIM) OR CONT TOEN 
DO; /* FOUND STRING */ 
ШОО ЕУ = STRINGC; 
cont = FALSE; 
DO FOREVER: 
so VER DE CETCPARN <> SPRIMGDELIM; 
CALL PUTENAGCULS 
ТЕ CONT THEN RETURN; 
END; 
OA INOBLANK > 
F NEXTCEAR <> STRINCTDELIM TEEN 
RETURN; 
CALL PUTSINSACCUM; 
ENI; /* CEF DO FOREVER */ 
BU / OF RECOGNIZING A STRING */ 
ELS® IF NUMERIC THEN 
TO; /* HAVE DICIT */ 
TOKTN = NUMBERC; 
TYPENUM = INTEGERSTYPE; 
BO WHILY NEX™CRAR= @ 5; /*ELIV LXALINC ZERCS*/ 
NUNCA NR = C ETCHAR; 
END; 
БОО SPOQLNUMBIC; 
I? DFCIMALPT TERI 
DO; 
TEMPCHAR1 = NEXTCSAQR; 
NEXTCEAR = GETCSAR; 
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ale ate ale 


alo ale >< ala alo de Jo sig nto alo de No sla ato nto ala sie ate ate Mo alo ala ulo 
4 ye nr > Гы N > eye SA > ye “Ee as 2° Ld hd A 23° ee ` „| e e a өү v ` > e e > > Suz ds 4> ds Zus 





MA A AE ON 
DC; 
koer: MUS VVRSENDPLR ..1—-/ 


col ENG 
END; 

SS 

DO; 
IFNPCRARe = NEXTCHAR, 
NEXTCEAR = TEMPCEARI; 
CARE PUN HE 
NEXTCRAR=TEMPCEA 22; 
TYPENUM = REALSTIPE, 
CALL SPOOLNUMPIC; 

END; 

“ND; 


ET CERCASEXP; 
fF ACCUM(2) = 9 TEEN 
PASHCOLE,ACCUM(ACCUM(@):=1) = “2°; 
BATT Se TON ER TSCALL; 
RETURN; 
END? /* OF RECCGNIZING NUMERIC CONSTANN */ 
ERS* 17 LETTTE Gan 
Bde HAVE A LETTER */ 
DO WIILE ALPFANUM; 
CALL PUTANDCZARP; 
END; 
IF NOT LOCKUP THEN 
ШОК Т = DDENTC 
Ol SETSNEXTSCALL; 
RETURN? 
H: OF RECOGNIZING BW OR IDENT */ 
FLSE DO; /* SPECIAL CHARACTER */ 
meek OCSAR = COMMENT TEEN 
BO, 
NPXTCHAR = GETCHAR; 
DO WHILE NEXTCEAR <> UNCOMMENT; 
MSN AR = GETCHAR; 


END; 
CALL CETSMOSELANX; 
END: 
ES E 
TO; 
IF NEXTCEAR = ':' THEN 
DO; 
SALE PELANIEGEAR, 
IF NEXTCEAR = "e TEEN 
CALL PUTANTGITS 
ENI; 
Lon 


IF NEXTCHAR = TUEN 
DO; 
lol nD THAN 
DO; 
LOCIEL=FALSE) 
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On PUTSINSACCUMS 
Na; 
END; 
BIS 
GAME PUTANDCEA?; 
NO A TEN 
(АТ TANTEETS 


O 
O a 
LO; 
о MESSER, 
TYPENU” = REALSTYPE; 
STI Ó 
od ECT Psy 
SAT SOMER TSOALL 5 
RETURNS 
END; 
END; 
ELSE 


CAL POTANDGYT 


IF NOT LOOKUP THEN 
CALL ERROR( NC); 
EE 
RETUEN; 
END: 
rND; /* OF PFCOSNIZIN® SPFC 
ENDS /“ OF DO FOREVER */ 
UND SCANNER; 
TND SCAN; 


KA 
= 
LA 
CI 
+ 14 

Lë 
LO 
= 
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Fr... 


SDAGEWIDTE (EZ) TITLE(” PAESFR”) 
PARSFR: DO; 


AGE LIT LITERALLY 'LITERALLY”, 
SAR PRE LIT PUBLIC”, TXT LIT 
WHK ON AT", 
PROC LIT ’PEOCEDURF’, 
MENG LIT ^^. 
EE LIT ADDRESS”, 
BASE LIT 2, 
FOREVER LIT /WSILE TRUE’, 
CUTEST? E LIT “ApERRSS , 
E SIE LIT @ODEFSS ": DCL 
Ma IE LIT (52 , /* MAY IDENTITIER SIZE - 1 */ 
KE NIT 100. /# STZF OY VARC STACY^/ 
EC NE KIT (28. /# SIZF OF PARSH STACKS */ 
HERE EI SIZE bit 128 . /* SIZE OF PASYTABLE */ 
EO SU IT E5 BYTOS USED FOR 3CL VALUES #/ 
DSUHST LIT 5 4 /*M&Y LEVEL O* N*STS FCP TYPFTS*/ 
MAYSARRYSDIM LIT 53 /* MAX AWSY DIMENSIONS */ 
/* MANY OF TEE FOLLOVINC VASIARIES CAN EE REBIACIL 


Ne 


BY 
se EU PARALLEL PARSE STACZS “/ DCL 
CONE BYT: PUE INITIAL (9), 
HOP Sm PUB INITIAL (0),/* TYPT OT CONSTANT 


BORM BYTE PUB INITIAL (3) 
FYPON EYTE PU? INITIAL (e 
UNCPTR BYTE PU? INITIAL ( 
TYPENUM BYTE PUE INITIAL 
CONSTSPTE BYTF PUB INITIA 
TYPFSADDR ADDR PUR INITIAL (2 
INPESLOCT ATIR PUB INITIAL (2 
SPAR BYTE PUB INITIAL (A), 
VARSPARMSPTR PYTE PUR INITIAL ( 
RC OPASICTYE BYTE PUB ISITIAL ( 
ARRYSOTY(MAXSAREVSDIM) ADD? PUB 
VARSPASE(12) ADDR: PUR INITIAL ( 
VARSBASE1(1@) ADDR PUE INITIAL 
MELOSOTY ADDR PUB INITIAL (Z), 
TYPFSORDSNUM BYTE PUR INITIAL 
PARENTSTYPE ADTR PUE INITIAL ( 
CONSTSINDX 3YTF PUB INITIAL (2). 
LOOKUPSADD®R ADDR PU? INITIAL (2 ` 
KAN OZ PU5 INITIAL (2), 
ANS TS ALU (TG) BYT? PUB INITIAL (C 
BONSTSENSHASENA) ENTE PUR INITIAL | 
CONE LSPEN PTR BYT PUE INITIAL (©), 
POUSTSPNSSIZe( 4) BYT® PUR INITIAL (@), 
INTEGERSLIFF ADDR PUB INITIAL (2), 
SURE ATOR PUP INITIAL (Ø), 


Jes 
3) 
Ee 
Deo 
e 
Р 


-— 


) 
( 
( 
( 


) 
) 
IN 
E 
Ø) 


A 
e 
E EE 
ð 
(E), 


2% 
) 


( 
Ci, 
) 

2: 
( 
A 


), 
2 
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STEP Fr TIT AL ea 
SUBESPTP BYTr PUB INITIAL (2), 
SUPSTYPSADDF ADDR PU? INITIAL (2), 
SEN EORM TI oUF INITIAL (C), 
SICNVALU BYTF PUB INITIAL (2), 
APRYSBASF AITR PUB INITIAL (2), 
ARRVSPTR BYTE FUR INITIAL (255), /= -1 Si 
APRYSDIMSPTP BYTE PUB INITIAL (7), 

PURPR? BYTE PUF INITIAL (2), 
TAGSFD(MAXSŠNEST) EYT? PUB INITIAL (0), 


MAPSOASSTPIMAKSNEST) ADDP PU3 INITIAL (4), 
WIRSCASSVAL(MAXSNEST) ADDR PUR INITIAL (Z), 
PMG OUARSTYP(MAXSNEST) BYTE PUB INITIAL (e), 
RECSNST BYTE PUB INITIAL (255), /% -1 */ 
RECORDSPTR RYTY PUR INITIAL (255), /* -1 */ 


PROSA LPR (iGY APER PUB INITIAL (€), 
BGS EE EDD PU3 INITIAL (0 
VAPIANTSPART(MAXSNEST) BYTF PUB INITIAL ( 
MN EOTXSTSBSVIMAXSNES") APIR PUF INITIAL ( 
VARSOTSTSBSF(MAXSNEST) ADER PUB INITIAL ( 
CURSOFST(MAXSNEST) ADDR PUP INITIAL (2), 
NUMSARRYSDIM(MAXSARRYSDIM) BYTE PUE INITIAL (2), 
ARRVSDIMEN(75) ADD2 PUB INITIAL (2), 
ARYSDMSADRSPTR PRYTF PU? INITIAL (255), /* -1 */ 
/* CASE STATZMENT VARIABLES */ 
BEAT STEP) BYTE PUB INITIAL (@),/* # QO? STVOS IN 
CURRENT CASE */ 
MER GUN FITE PUB INITIAL (2958), /% -1 = LEVEL OF 
mise STMTS */ 
CONSTSNUMSTYPE(4) BYTE PUR INITIAL (2); DCL 
BCDNUM(ECISI7E) EYTE PUB INITIAL (@) 
SCOPE(12) ADDP PUB INITIAL ( 
SCOPESNUM BYTE PUB INITIAL ( 
TEMPEYTE PYTE PUR INITIAL (6 
EP BYTE1 BYTE PUB INITIAL ( 
TEMPADDR ADDR PUR INITIAL (2 
TEMPADDR1 ADIR PUE INITIAL ( 
PRODUCTION BYTE PUB INITIAL 
PRVSSBSTSENTRY ADDR PUB INITIA 
EG PILAR TOGCLES */ 
MSTSTOXEN BYTE EXT, 
WOMPILING BYTE INITIAL (2), 
/* COUNTERS */ 
rou? FR), [7 CCUNTS NUMBER OF LAE?LS 
x< 


SR OCSADOCR ADDR PUR INITIAL (32), /* COUNTS PRT ENTRIES */ 
Pe FLACS USED DURINC COLE GENERATION */ 
PASESSTMT BYTE PUB INITIAL (2), /* IN CASE STATEMENT */ 
MESS TAT EYT PUP INITIAL (0G), /* IN WRITE STATEMENT =/ 
BERDSSTMT BYTE PUB INITIAL ), /* IN BEAD STATEMENT */ 
, /* GETS NEW RECORD */ 
oe roe Oso ON RECORT +/ 
m PRT LOCATION ASSIGNED > / 
/* FORMAL PARAM IS VAPIA®LF 


NEWSSTMT RYTE PUR INITIAL ( 
IIS POSESSTMT PYTE PUR INITI 
BILOCATT BYTF PUB INITIAL ( 
VATPADM RYTE PUR INITIAL (2 


Ber */ 
READPARMS BYTE PUB INITIAL (2),/* READING ACTUAL PAFAMTTERS 


PRESENT BYTE PUP INITIAL (@),/* IDFNTIFIFR IS IN SYMEOL 
PARLE */ 

ШОУ ОК SYTE INITIAL (3),/* CONTROLS CALLS TO SCANNER */ 
EUSNSFLAC FYTE PUE INITIAL (2),/* SET WEEN SIGN PRECEDES ID 
Ë / 

J= GLOBAL VAPIABLES USED BY TEF SCANNER */ 

TOKEN BYTE PUB INITIAL (0), /* TYPE OF TOKEN JUST SCANNED 
x / 

К со: PNTE PUB INITIAL (0), /* FASE VALUE Or CURRENT 
TOKEN * 

Mer BYTE PUB INITIAL (0), /* INDICATES FULL ACCUM--STILL 
MORE */ 

ACCUM(IDENTSIZE) EYTE PUB INITIAL (9), /* JOLTS CURRENT 
TOXFN */ 

/* GLOBAL VARIABLES USED IN SYMBOL T 
BESE ALPR PUB INITIAL (ei, /* BASE LO 
UASETABLF(ZASHTBLSIZE) ADDP PU3 INIT 
APRAY */ 

EEUESDTOP APPR PUE INITIAL (0), /* HIGEEST LOCATION OF 
SYMROL TABLE */ 

ET ADDR PUP INICIAL (3), /* CUPRENT TOP OF SYMaACI TABLE 
* / 

BADER ATTR PUR INITIAL (A), /* UTILITY VARIAELE TO 
ACCTSS S3BT3L */ 

PRINTN^FE ADI? PUR INITIAL (g), /* SET PRIOR 10 IOOKXU? OP 
ENTER */ 

HVS RYTE PUF INITIAL (2), /* HASE VALUE CP AN 
ILENTIFIER */ 

PASTSSBTRLSID ADDR PUB INIT TAT o/a S0LD PDAVIQUS FASE 
EGCATION */ 

BEPBEMNUMLOC ATDR PUF INITIAL (0G), /* STORES POIN7T? TO 
PARAM LISTING */ 

BEES COD A DDR PO INITIAL (2), /* BASE CF LAST ENTRY IN 
Ea OUS ELOCK*/ BUILTINTEL(1@) EYTE EXT; 


ELE r VO Ses / 
SE on, 
e EE 


FILL: PROC (A,CEAR,N) FIT; 
wot, A ADDR, 
(CFAR,N) BYTE; 
ED TILL: 


ENUUSSYMTPL: PROC; DCL SYMB3ASE ADI; 
no 

CALL FILL(.FASITABLZ,4,285); 
SYMBASE=. BUILTSINSTRL(2 2); 
ERTS MREORY: 
DASPTABLE(14)=SYMBASE5 
EASHTABLE(S€)-SYMBASE-14; 
SASETABLE(Z@)=SYMRASTE +25: 
HASETARLE(A)=SVMBASE+36;5 
HASFTABLE(6S)=SYMBASE +52; 
FASETABLE(1€)=SYMRAS3+815 
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Ta MR AN 
FASETABLA(2€E)=SYMBASTIRE; 
KASUTABLE(11E)=SYMPASF+127%; 
FASETAPLE(E7)=SYMPASF+142; 
HASETABLE(1029)=SYMBASF+159; 
FASHTARLE(26€) “SYMBASE+173; 
FASHTAELE(74)=SYMPASH+196 
FASETABLE(87) =SYMBASE +201; 
UASFTARIE(99)=SYMPAST+2539; 
FASPTABLE(12)=SYMEASE+244; 
FASETARLE(R)=SYMBAS F+26@3 
HASHTABLE(1231)=SYMRASE+278;5 
FASETARIE(92)=SYMEASE+208; 
FASETABLE(4€)=SYMBASE+304; 
HASETABLE(43)=SYMBASF+319; 
FASCTARLE(121)=SYMBASF+TZ4; 
SASFT ABLE(26)=SYMBASE+347; 
FASYTARLE(3)=SYMBASE+362; 
BASHTABLE(Z4)=SYMEASE+275; 
PASTTABLE(79)5SYMBASE #3925 
YASTTARLE(12E) =SYMPASE+42É; 
FASETARIE(22)=SYMPASE+41£ 
PASETABLE(€4)= SYMBAST+ATA; 
FASHTAPLE(127 )=SYMBASF +4493 
FASETARL E(28)2SYMEASE+4E5: 
TASTTABLT(SA)= =SYMBAST+478; 
FASTTABLE(11)=SYMPASE+493; 
FASETABLE(37)= E - 
TASETABLE(47 )-SYMBASE #522 
SASTTARLE(21)=SYMBASE+53E 
EASETABLE(OS) =SYMEASE+550; 
HASETABLE(C2)-SYMBAST-56€7; 


PRVSSRTSENTRY = SYMBAS®+5E7; 
END; 
BUD INITSSYMTBL5 


BU STATE STATESIZE INITIAL (0), 
VAR(PSTACXSIZT) BYTE PU3 INITIAL (2 
HASF(PSTACKSIZE) BYTE PUR INITIAL ( 
EDATESTAGK(PSTACKSIZ7R) STATESIZE IN 
PAEMY TIM (PSTACKSIZ5) BYTE PUB INT Ts 

MAINTAINS NUMBEP OF PARAMETFRS 


SUBROUTINE */ 
LABELSTACK (PSTACKSIZE) ADDR PUR INITIAL (3), /* 
TRACKS STATTMENT LAFELS */ 
DUE N oe PS TAGTS (2E) ADDP PU3 INITIAL (@), ,* 
MAINTAINS TEE LOCATION IN SYMEOL 
TEL WEERT PARAMETER 
КОТО STORED */ 
PASESLOC(PSTACKSIZE) ADDR PUB INITIAL (0), /* STCRIS 
TEE SYMECL TABLE ADDRESS 
OF TEE PURTINATE ENTRY 


E / 

FORMSFIELD(PSTACKSIZE) EYTE PUE INITIAL (e), 
STORTS TUT TOPM FIELD CF 

SCINNEL ITENTIFTIERS *) 

TYPESSTACK(PSTACKSIZS)PYTS PUR INITIAL (2),/% ECIIS 
A VARIABLFS TYPE */ 

MPR USS SSLK(PSTACKSIZE)SYTR PUB INITIAL (92), /* 
CONTAINS TEE TYPES OF TRE 


Ee Y 
EES APE PSTAGY SIZE) ADDR PUR INITIAL (2), /* STOR 
AN IPENTIFIER'S FRT 


AE SION EEDEN ENT 


> 


I 


LOCATION x/ 
ve ABO SIZE) BYTE PUE INITIAL (0), 
ee nue ey Ts INITIAL (9), 
PARAMNUM BYTE PUB INITIAL {2}, 
KSP MP .MPP1) PYTE PUE INITIAL (2); 
ZS MNTMONICS FO? PASCAL-SM MACHIY= */ 

MED MAYRNO LIT “165% /“MAX PEAD COUNT*/, MAXLNO LIT “242” 
J*MAX LOGX COUNT*/, MAXPNO LIT “280% /*MAX PUSE COUNTY, 
Meets LIT “1° /*START STATE*/; 

DECLARF E ENT Pate Ty ADDR EXT, ENDEX 1 (1) 
BOOT. INPEX2(1) EYTS EXT, APPLY1(1) BYTE EXT, APPIY2(1) 
ADDP TXT, EG DUE Pia LOO G (1) Dp MET; 


SETUPSINTSFIL: PROC FXT; END STTUPEINTSTIL; 
INITSSCANNER: PROC TXT: FUND INITSSCANNZD; 
EA SINT: PROC EXTs END INITSSINTU; 
FRROR: PROC(ERRCODE) EXT; DFCLARY ERRCODE ADDR; END FRAOF; 
SCANNER: PROC EXT; FND SCANNER; 
BEINTSTOREN: PROC EXT: ENI PRINTSTOXEN; 
MINTESSIZE: PROC EAT; END SYNTETSIZE; 
POINT:PROC(A) TXT; 
WL A ATIR; 
END PEINT; 


EU :PPOC EXT; 
END C"LY; 


METLESPPOCs 
CALL CRIT) 
CALL PRINT(.(!NPS-PASCAL VERS 6.2 2-MAR-E€ $1); 
CALL CFL"; 

MAD TITLE, 


MOCONFLICT: PROC (C 


c 
LINDAS TATE STATESIZE, SESI 





ME ANA ZI (CSTATT |): 
fe SINDAK (GSTATE) = 1; 
ment = TO K; 
Wi D TE, TEEN RETURN CRUZ: 
END: 


END NOCONFLICT; 
ECOVER: PRCC STATESIZE; 
ПОО SP 3YTE, ESTATE STATTSIZE; 
DO FORFVFRP; 
ШЕ = SP; 
BOEWEIL= TSE <> .255, 
BEREICH FSTETES=SSTATNSTACHTISP)) TEEN 
LO TAT TULL READ TOKEN */ 
Ma ET PS pen]; 
RETURN ASTATE; 
END; 
BUR - TSP — 1; 
END; 
CALL SCANNER; 
TND; 
END RECOVED; 


КО? /“ELOCX FOR LECLLDAPICNS*/ 
MERO ,J,X) INDEXSIZE, PADEX 3YT?; 
RE TIALIZE: PROC; 
L INITSSCANNERS 
ШОО TNITSSYNT 3L5 
EO INI TSESYNTE 3 
GAD TITLE, 
PND INITIALIZES 
CE PINI: PROC INIFXSIZE; 
EE VaN INDEXI(STATE); 
BUD GTTIN1: 
BN: PROC INDFXSIZES 
RETURN INDEXZ(STATE)S 
EIE GETINO; 
INCSP: PRNC; 
IF (SP := SP +1) = 
CALL TRROP( SO 
END INCSP; 
LOOXAFTAD: PROC; 
I" NOLOOK TFEN 
pos 
CALL SCANNER; 
NOLOOK = FALSF; 
IF LISTTOYFN TEEN 
AO TOKEN 


LENCTT(STATYSTACK) TEEN 


) 


FND; 
Be LOOKAREAD; 


SFTSVARCSI: PROC{I);: /* SET VARC. ANT INCRMYNT VARINIZY 


dl 





DE Dy Es 
VARC(VARINDFY)=I; 
IF (VARINDEY:=VARINDEXY+1) > LENCTA(VARC) TH 
CALL FRECE( VO”); 
ENDS ETS VARCSIS 


q 
taf 
= 


г 154 wie de le ade n'e a wa as 
> S32 tas a. BLA IR III IA A GO AGO GIN SS Zus dis ds ës 


6 
34 
N 


ale wis de wie sie s'e uto se s'e n'e a nto Ja oles ale ses abe = 
SEJECT Ee oe 2,9 23° SI SS a IA In ST. an AI ^ 
dar - 
* ie — J wl 4 
E /* PAS Er nd m BEGINS ` aga a ps af 
254 = alo ale ale nla nta alaala ale ats als 


ate ste nto nto ste nto el 
ү“ RAS AS HE AS x A MU M S K S AS A 


BALL SFTUPSINTSFIL; /* CPEATES OUTPUT FILE FOR GENFRATED 
ENSE */ CALL INITIALIZE; CCMPILINC,NOLOCK-TRUE; 
BIATFZSTAPRTS: SP2255: VARINDEX, van(g) = ДЕ 
COMPILING; 
[E STATEC=VAX2NO TERN /* BEAD STATE */ 
Do: 
ШОО INCSP; 
SUITES TACXI(SP)=STATE; 
MÉS TIN1: 
CALL LOOXAXEAD; 
J=I+GETIN2-1; 
DO [ZI TO J; 
IF RFAD1(I)=TOFEN THEN /* SAVE TOYEN */ 
TOS /% COPY ACCUM TO PROPER POSITION */ 
VAF(SP)=VAPINDEX; 
Boð EE ACCUMI 
CALL SETSVARCSICACC 
END; 
TASU(SP) = FASUCODE; 
SDATTERTATZ/IJ: 
MOUCOK=TEUE; 
EJ: 
ENT; 
TLS? 
o =] THEN 
pcs 
ADI TR 
E (SE! 


2); 
EE 


END; 
КГ, 
DATE STATESNAXPNO THEN /* APPLY PROTUCTION 
DO; 
EE-cpP-CTTIN2; 
EEPI-MP-T1: 
Pare Cr LON = STATE-MALPNO; 
pL STNTESSIZE! 
SIND; 
I2GETIN1; 
VARINLEX=VAR(SP); 


tn 


i 


"Y= 
= 


IZ 





NG AT STAGE (SP, 
MO (X:=APPLY1(1)) <> © ANTE J OK 
pue. 
TND; 
W I T; = APPLY?{(1))=3 TEEN 
FØTI LING = FALSE; 
Б; 
Bess 
IF STATE<= MAXLNO TEEN /% LOOXAEEAT STATE */ 
DO: 
RES BTINL; 
GE LOQCAERAT: 
ШОО ЕТЕ (K:=LOOEICI)) <> @ AND TOKEN <> X; 
f T+]; 
ENT; 
EET -noOK2(I); 
END; 
ESSE 


ies) /* PUSE STATE */ 
CALL INCSP; 
STATESTACK(SP)= CETINZ; 
STATE=GETIN1; 
END; 
W 2 OF VIILE COMPILING */ 


EDS 7* OF BLOCK FOR PARSER */ 


END PARSER, 


due 





EBLIS: DO: 
ERU uIPTE(S7) TITLE( TABLES — LALB(1) PAPS? TA^LES ^") 


BU RT LIT LITERALLY CLITERALLY”, 
ADDE LIT “ADDRTSS', 
PO no mA Ro" 
Ei LI? CPLELIC; 


Mee DUMMY (3) BYTE DATA 


WER ОКУ ҮР ГЕР ТО FORCE 
ENUETSINSTAEZLE TO LGE */ 


Ba BUILTSINST?L (#4) 3175 PN3 /FAT (10E5)4/ DATA ( 
Ba. se, 14,7, 1°, N, T°, DO, CD, RO, 

BAE DEE, 445 ,36,4, 3 , 7, A G, L, 

BAND 141, ,520,.32,4, C , F “A, R”, 

KR BEE 27, E, 0,0, 19 A, N, 
2,2,291 F ,2AF, 621, Ba 7o 

eee n, 387, I7F,16,5, IO, N°, PÒ, U”, TT, 

Me ` 2.15 ,113,5, GC, U T”, Pp. U m, 
@,@,@1Н,4ҮТН EIC REC SC se AGE, 

ООУ 507,2D7,115,3, 5 , 0, 2,1.,.137,1.,135F , 

MP EAT GDE,1066,3, S | 1”, N,2,BE.1,13F, 

E20 .213,78h, OE sia T am. 
EENDIESSCH,2DH,57,€6,/A , 2°, CO, TO, A’, N',4,32,1.13E 
MOTE O47, OPE 129,35, E , X^, 2,5, SF .1, 13E, 

2,090,019, CASE, ong, T a N Eal, 

AE 259,74,4,'9/,/0 ^ ,/2/, T , 2 BE 1,120, 
E C E DE, E ae De De D .@.5SE.1E.14, 

2,0,018, 2082 "ODE, 4€. 4. ee VET, 
Meee, 2TDI,9DF,S2,2, F°, 0°, F°,12,57,1. 268. 

ШОО DiE, CECH,0DB,12,5, 72 ^,/2^, "U^, "N^, 'C^ 11, 1EL 1,27, 
0,7. l ir opa E. 2/, 0^, U^, N^,'D^,12,13,1,2E., 
E 213.,2295,2A8H,2DH,121,23,/0',/8 ^, D ,13,1H,1.2E. 

N EE 1AF ODE 92 ,G., OT RT, RT 14, OE 1 1, 

LE 272% ,2BE ,GDE 46,4, 8 U", 0,0 ,15,077H,1,053F, 
2,2,025,536",2D7,42,4, "phano os 
КОЕ 153,007 ,121,3, P, U, 7°,17,103,06P, 
?,0,02E,^An,QCH.96,2, G^, E^, T ,18, 107 ben 

IM 0?7H,61f,2(5,23,5, R , PO, S”, E°, 1T/,19,1?HE, 0€v, 
EC COE,CFE,GCE, SE, EA EG T, a? EE GE. 
061 , 

BO .7IN,22H,29,4, P | A1, GS’, E’,21.128.96F, 

NE G1B,723,87H,OCE,168,2, N , E°, W°,22,CFFI, 

o ,Ø BOE SCE GCE, AE A IS E ET 2 BEEF 
Ka 22" (Дан, Dore ca p O p U uu moss. 2.9.2, 
2,0,028,2R8H GOE 167, 5 aa RS E, 
Bo. 0cr ,CC7E,@C4,22,4, BR, FF’, 4°, °D’,24,@FFE, 
2,0,02E,0D79,2CE, 54,8, oa. 
,0,22F.,CF4E,0CF, 11.85. W^. *R^, 1^, pe ge, e.2FFE, 

2,0, ACB, PET ¿20E,37, DE £M TIN 2", AT "TE, 
E0 .25H,21f,2CH,42, E is Ed MA oe 2 ET OIE, 





Bau, 117,118 ,21,7, 7,07, R, V JA O A 
Q,0,E3E,205,113,99,8, "50,3", 7", EM, a NA, 
@,@0,@д5Е ,„,<ER, 1157 oe ave, Il 9 N 9 H 9 E 9 R 9 A 4 E 9 i y I + 
EU ^ , 


ER)! 


S Api (*) BYTE PUB DATA(O, 53, SE, 57, 25, 25, 25,13, 
N 56, 57, BE, 58, 58, 9, 14, 9, 5€. , 58, BE. 5E, BE, 
A je, 54, ES, 565, 3, 4, 6, 10, 33, 37, 42, 49, “20. 
re, 72. ., a, 4, ES, 19, 21, 22, 54, 55, £8, 3, 4, 14, 
О 565, 58, 3, 5, 31, 32, 54, 55, BE, PP, 5€ , 58, 58, 
aa 20, 25, 25, GE, 41, 42, 47, Bi, 54, FE, EL, 54, 
BUTT. 47, 50, 58, FB , EB, 58, 22, 29, 35, “a, 41, 43, 47, 
mern), 44, 34, 56, 57, 54, 58, "V. 11. 2€ . 27, 32, 58, 
A, 45, 35, 58, 3, 9, 17, 2, 14, 15, 1, 5,8, 18, 
EEE, 3, 36, ZE, 29, 22 , 19, 8, 17, 14, 14, 28, 8, 9, 
EN Ze, 9, 46, 22, 22, 3, 12, 16, 14, 15, 2, 9, €, 12, 18, 
Sums, 45, 9, 9, 8, 12, 12, 9, 12, 14, 12, 14, 12, E, 
3. 12, 18, 45, 58, 12, 14 , 12, 16, 12, 19, 2, 4, 
BA 15, 21, 23, 4, 10, 25, 9, 12, 14, 9, 28, €, 9, €. 9, 
EN. 7, 0); 

ORT (+) EYTE PUR DATA(Z2, 13, 15, 2, 35, DE. 2, 16, 2, 
NN 7. 58, E, 35, 57, O, 9, 2£, 48 , 0, 9, 2£, €. €, 
ШОО К 0, 15, 0, 8, 9, 23, 2, 2, 9, 28, @. 9, 28, SE, 46. €, 
EE ^5. 2 . 17, 2, 1, 5, 6, 18, 2. 14, 2, 2,2, 9, 42, 
EE z4. ZØ, 45, 0, 7, 11, 26, 27 „ Ze, €, 7, 11. 25, 
КОО 7. 11, 26, DT, 30, 0, 25, FR, RL, 9, 46, 2, TE, G, 
INS E, 2, 12, 19. 2 , 12, 19, 2. 9, 2£, 36, 46, 2, 3€, 
E 46. 0, 17, ©, 14, €, 14, 0, 2, 2, 9, 28, E, 43, Ø 
mummers, 12, 23, 2, 2, 9, 7, 12, 9, 3, 2, 45. 2, 45, 2, 
NEE Q, a5, 58, 0, 2,4, 12 , 13, 15, 21, 22, €, 
ШО @, 22, 2); 

MD APPLY! (5) RITE PU? DATA(2, Ø, 2, 2, Ø, 22, €, 170, 171, 
REIMS Q. 7, 7, Sl, 74, 79, 2, 2, 0, 235, 2, 2, 28, 29, 
S I El, 63, 153, 3, $95, 2, 15, 28, 29, 37, GS, 47, 
aa 55 . 54. 59, 6C, 61, 62, 62, 156, 2, 0, 0, 24, 0, E, 
M C2, 9, 15, 27, 59, 7, 18, 44 , 4F, 46, ES, 122, 
КОО СОЛТ 2, 2, 2, 37, @, 2, 2, 2, 14, 2, 2, 26, 2, 2.5, 
BE mer, 26. E , ES, 0, 6, 29, ©. @, 29, 2, 0, €, 0, 2, €, 
EE 00. 2. 80, 2, 146, 2, 175, 0, 1, P, 7. 8, P, 22 , @, Ø, 
BA 100. 7. 1, 2. 2, 46, 9, 2, 27, 122, 122, 141, 2, 71, 
t, e, es, 120, 121 , A, 71, Ø, 72, E7, RE, 89, 121, €, 
ne, E, 2, 27, 38, 71, 72, 77, 87, BA, 89, 107 , 1€9, 
2. 122, 141, 2, 2, 2, 11, 1€, 17, 42, 41, 49, 52, 55, 
Ba 5c. 70, 62, 20 , 166, 1027, 2, Ø, 9E, 162, Ø, €, 1€l, 
BOTE. 162. 2, 13, 2, 2, 2, 2, 4&2, 9, 2, 135, 2, 139 „2, 
Br, 0, €, 0, Z, 28, 0, 28, 150, C. 6, 6, @, 112, 178, 


do 





S (UY) ADOR PU? INITIAL (2, E2, E3, 80, 772. 272, 271, 
КОО 67, Pa, 86, 272, 277, 211, 367, 45, 277, 279 


жоо; 
Baa. Cos, 418, <10, 239€, 297, 290, 294, 295, 1C, 296, 
e e, DE, 81, 3293, 2923, 294, 222, 62, 11, 29€, 
Mee’, 441, ES, 440, 442, 412, 1C, 296€, 297, 292, 294, 
EEC 


EE 479. 11, 188, 441, 65, 446, 442, 418, 59, CPA, SEE, 
EAM 11:25, 15, JE, 64, 70, 74, 477. 221, 475, 487, 283, 
ШОО О, бб, TE, VC. cld), 275, S82, SES, 572, 58, El, 


‘a 


( 


RR, 251, 495, 455, 225, 75, YE, ES, 83, ËD, 291, 
Meee £24, 425, 428, 426, 427, 4106, 2, 3. 4, 294, <@1, £9, 
ESO, 54, 2, 44, 52, E, 17, 407, 56, E, 12, 17, 427, 
BG OO. 220, 392, 463, 4735, 457, 55, 49, 59, 324, $41, 
КОО JO, 455, 192, 80, 197, 198, 187, 41, 428, c40, 51, 
BU c61, 71, 22, 445, 280, 21, 484, 497, 259, 262, 728, 25, 
ui So, dEE, 30, 45, 32, 12, 193, 457, 42, 456, 47, 57, 
Ben, 04, 47, 37, Al, ca, 470, 185, 402, E23, 196, 415, 
ml, 254, 432, 433, 424, 191, 36, 498, 1294, 4627, 19, 22, 2f, 


EN. 2.090, 2); 


EN LOOK2(%) ADDR PUF INITIAL 
Ware, ji), DA, 
239, 25, 351, 2F. 2 
"AA, 245, 246, 29, 4^, 420, 2 
EE 250, C-, 251, 25 1, 
ШОО, 512, 412, 412, 419, 419, 45 
9 


mU A RS 

AE Ra RE, 
weer, Gia, Cove. 

DEN E Rn E CENA TA, 
A C 


E 
Bat, 92, 255, 93, 25€, 257 SERRA 
9 


E. 98, 92, SQ, 93, 99, 430, 99, 29, 421, 198, 
Beer, 259, 259, 129, 333, 385. 11€, 116, 116, 116, 435, 
BAN. 117, 472, 472, 118, 269 , 260, 2609, 26€, 12€. 261, 


e 77262, 262, 122, 120, 452, 131, 459, 132, 460, 125 
umes, 263, 141, 35º, 146, 264, 264, 152, 157, 447, 158, 
mu K.E, 163, 374 , 1€4, 456, 165, 2€5, 17€, 26€, 171, 
mu 174, 268, 175, 175, 259, 177, 177, 177 , 177, 177, 
Bai? 213. 178, 172, 178, 414); 


MET DCL APPLY2(*) ADDP PUB INITIAL 
wear, 236, 149, 138, 275, 274, 122, 3€3, 123, 3€1, 131, 
BRO, 182, 282, 452, 201, 194, 208, 119, 287, 29€, 145, 245, 
MESAS. 288, 329, 245, 245, 345, 111, 292, 292, 95, 95, 
@ 


aa 5, 05, 55, 95, $5, 95, 95, 95, 95, 95, 95, 95, 9€, 
MH ` cel, 3500, 114, 354, 331, 348, 222, 202, 022, 322, 
Summers, 249, 383, 277, $82, 1239, 140, 307, 156, 345, Cla, 
o 173, 321, 322, 312, 316, 215, 134, 133, 227, 332, 
RR lar, 409, 354, 144, 333, 3227, 328, 223, 232, 123, 259, 
BEE, 244, 245, 217, 346, 312, 3286, 711, 179, 352, 3852, 
BA, #29, 155, 154, 362, 364, 259, 242, 112, 185, 184, 


LEG 





ue 754. 372, 373, 371, 162, 237, 238, 113, 148, 147, 
mee, 455, 597, 3&7, 467, 454, 388, 388, 469, 474, 476, 217, 
Muses, col, 3866, 222, 222, 222, 222, 222, 221, 125, 124, 
ec, 305, 115, 220, 115, 115, 115, 115, 115, 115, 219, 
eis 115, 115, 115, 218, 406, 143, 129, 224, 411, 224, 
mie, 226, 461, 451, 405, 482, 12€. 127, 482, 461, 12€, 451, 
me 7715. 214, 212, 163, 242, 241, 160, 429, 423, 422, 
167, 438, 151, 231, 449, 448, 402, 384, 403, 128, 137, 
B96, 235, 444, 443, 499, 232, 182, 465, 464, 228, 228, 142. 
TES. 176, 287, 206, 285, 397, 106, 399, 112, 169, 153, 
Bra, 477, 398, 216, 90, 107); 


BCL INDEX1(*) ADIR PUB INITIAL 

N EE MO SYE, 14. 46.74€, 
КОО 52, 43, 43, 24, 15 , 16, 17, 9, 83, 71, EE, 122, 
NES, la, 84, 15, 19, 20, 21, 22, 52, 114, z5, dé, 43 
EE tO, 24, 24, Z4, 20, 40, 43, 43, 25, 20, 42, 25. 428, 
EE. 52, 99, 25, 50, 25 , 58, 59, 6C, 67, 68, 69, 43, 
N (0, E4, 71, 72, 73, 83, 84, 45, 85, £9, 90, E7 , 91, 
Mo, 95, 93, 45, 102, 103, 104, 105, 107, 59, 129, 199, 
ENEMY t. 115, 116 , 117, 118, 119, 45, 45, 122, 73, 122, 
ООО 126, 127, 128, 122, 128, 128, 136, 73, 935 , 75, 
Baler, 123, 139, 140, 141, 142, 145, 144, 145, 14E, 147, 
BAT Ii. 152 , 1354, 153, 75, 126, 157, 159, 167, 105, 
ООО 1:65, 25, 165, 166, 168, 170, 171 , 172, 174, 175, 
e 1] 7E, 120, 151, 182, 182, 185, 135, 187, 188, 
K 192, 182, 188, 194, 196. 223, 235, 297, 43, 229, 
K 1 1, 4, 7, 9, 11, 15, 15 , 18, 22, € 
O 


Eeer 46, 49, 51, 56, 58, 59, 60, 61, GS, 65, E7, ES, 
e 92, 95, 95, 172, 125, 19€, 111, 113, 117, 119, 
RR les, 128, 130, 132, 135 , 137, 159, 141, 145, 145, 
mi id, 152, 155, 162, 352, 446, 332, 404, 466, S42, See , 
342, 434, 43%, 424, 296, 2&4, 3550, 357, 3532, 404, 404, 494, 
EE 1. 4CC, 279, 279 , 279, 279, 279, 1, 1, 1, 2, 3,8, 
aa, i2, 12, 15, 13, 14, 18, 18, 19, 19, 20, 22, 25, 
BA. #5, 22, 54, 34, 51, 91, 92, 22, 53, 35, 56, 56, 


EE 61, 61, 65, 72, 72 , PE, 72, 74, 74, 74, 74, 76, 77, 
me 72, 29, 81, 82, 85, 835, 85, 85, £5, 26, SE, G8, BE, 29, 
mee 92, 95, 95, 97, 98, 98, 100, 120, 101, 105, 104, 105, 
BUT. 107. 103, 108 , 129, 111, 111, 112, 112, 117, 112, 
Me 114. 114, 116, 118, 118, 122, 121, 121 , 123, 123, 
me |25. 125. 126, 125, 129, 130, 130, 152, 132, 175, 
BU 136. 156 , 141, 141, 149, 143, 151, 157, 159, 160, 164, 
Mee, 169, 162, 160, 168, 169, 162, 162 , 161, 162, 1€2, 162, 
ma 7 17e, 178, 179, 179, 196, 196, 196, 196, 19€, 196, 
EE 197. 197, 200, 200, 200, 228, 200, 201, 2081, 281, 203, 
B203. 2904, 224, 204, 2204 , 294, 234, 224, ?94, 227, 227, 
BEE 0125. 210, 211, 211, 212, 212, 214, 215, 217, 217 , 219, 
NE. 220, 221, 221, 221, 222, 224, 225, 225, 226, 22€, 228, 
ME 235, 233 , 2354, 237, 23€, 239, 242, 242, 241, 242, 
DAS, 245, 246, 247, 248); 
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END TABLES; 


re 


Sau oe ie 


SPACEWILTE (88) TITLE(“SYMEOL - SYMFOL TABLE ROUTINES”) 


SYMBOL: DO5 
MOSLASE LIT LITERALLY “LIT 
ROU UIT. DECLARE”, 
POS LIT “0 
шерт “1°. 
PROC LIT 
рт ТТТ 
ADDR LIT 
mosh LIT €, 
EUTLTSTNSTUNC LIT A 
WWENTSIZE LIT 32, 
VARCSIZE LIT “102”, 
E T1(X517F LIT 48, 
FASVTBLSIZE LIT 
REISE ASK LIT “127, 
TINT LIT 32767 °, 
Fu [ZP LIT OS, /* 
MAXSNEST LIT "3°, /* 
E 
d 


Hua T 


GG m 
Ар БОС 


PAXSAREYSDIM LIT 
BOPMMASX LIT ^7", 
ENTRIES */ 
RISUSSENTRY LIT “1°. 
MOP ESEN TY LIT “2” 
UN WTRY LIT z” 
STNCSENTAY LIT 5 
INTFGERSTYPE LIT 
SICNEDSEXPON LIT 
ERALSTYPT LIT “2”, 
PARK LIT "ez", 
ЖООП LIT “79°, 
PARMV LIT 768”; 
ye 
PY MAKING 
USE OF 


/* FORM 


` ` ` 


Ion 
DCL 

BON BYTE EXT, 

EXPON BYTE FIT, 

VECPIR BYTE EXT, 

I NUM BYTE FIT, 

AUS TSE TE BYTE EXT, 
SDE TEDOS ATDEIR EXT, 
INE SEOICT ADIR EXT, 
VARSPTR BYTE EXT, 
VARSRASE1(12) 
AC OTY ACIR EXT, 
CONST INDX SITE EXT, 


á r 
lo, 
Ste 


“PROCEDURE”, 


DH 
/ SS 
pa 


“128” 
/ sa 


/ 


? 


# USED TO DFTERMINP 


/ 


MANY OF THE FOLLOWING VARIABLES CAN PF B 


EEUU Ds 


nie 
-> 


LOOKUPSALDDR ADDR EXT, 


* MAX INTEGER VALUE 
D m 
ee BN OR NS o DON TYPES 


EN 


Sl Crags BAL LIT 


E 
HADIR. 
Sz ea > A Cay 
STL ROF T PARSE STARR ~ 
Z= 5] 2 E OL. BASH CASE 4 
IS OI SA Le 
x 7 
ШОО TOR ECO VALUES 


/ als 
Ld hd 
$ 


ate / 
La hd 


MAX ARRY DIMENSIONS */ 
SCHEER CEA 


/ m" 
^ 


* NUMBER TYPES */ 


su cn me, 


КОНО 10 T 


ADR EXT, 


“EXTERNAL”, 


A ako 


GONSTSVALUZ (16) PYTE EXT 


CONSTSPNSEASE(4) BYTE FIT, 


CONO TSEN PTR BYTE EXT, 
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ne 


ats $ 
WA / 





BON SESENSSTZF( 
MOS OS TI MAXÓN 
ACES Ee 
CONSTSNUMSTYPE 


WERE» EXT, 
ОСОЛ IDn EXT, 
NT VARIABLES */ 
4) BYTE EXT; /*** GLOBAL VARIABLE 
жж / 
КМО BOTNUM(ECDSIZE) BITE EXT, 
SCOPE(120) ADDR PIT, 
SEOLSSNUN BITE EXT 
Du BITE BYTr EXT, 
ШЕРА ЕЕ ADER EXT, 
NPA?) ATUR EXT, 
PRVSSBTSENTPY ADIR EXT; 
DCL 
yee Cover LEP TOGGLES 5/ 


/* COUNTERS */ 
LABLCOUNT ADDR EXT, /% COUNTS NUMBER OF LABFLS */ 
ALLOCSATDR ADDR EXT, /* COUNTS PAT ENTRIES #/ 


ZS FLASS USED DURING CODE GENERATICN */ 
КООРУ EYTE EXT, /# READING ACTUAL PARAMETERS */ 
BET TI OY TE EXT, /* IDENTIFIES IS IN SYMBOL TABLE 
Ë / 
SEA PITS wil, / SEP WHEN SIGN PRECEDES ID */ 


KANAN AA TABS USE) SY THs SCANNER */ 
WASECODE BYTE EXT, /* BASE VALUE OF CURRENT TOKFN 
x / 


oe EE VARIASIES USED IN SYMBOL TABLE 
OPERATIONS */ 
RASE ADIR FXT, /* BASE LOCATION OF ENTRY */ 
EISEN EA SETSBLSIZE) ADDR EXT, /“ HASITARLE ARRAY 


x / 

SOA TERREI, IG LOCATION OL SYMNSOL 
ШАВТЕ */ 

EULA, fy CURRTN? TOP 07 SYMBOL TABLE */ 

PEER DIR BI, /* UTILITY VARIABLE TO ACCESS 
BULL */ 

ADDED BASED APTRADDA ADDR, /* CURRENT 2 EYTES 
BOINTEL AT */ 

Sb PAL) 1) FYTI, /* CURRENT RYTz 
BOINTED AT */ 

envy E RADUR TET, SRI PRIOR TO LOOKUP On SNTER 
ze / 


SYMSASH BYTE EXT, /* HASH VALUE OF AN IDFNTIFIER */ 

LASTSSBTBL$ID ADDP EXT, /* HOLD PREVIOUS BASE 
LOCATION */ 

PARAMNUMLOG ADDR EXT, /* STORES POINTER TO PARAM 
LISTING */ 

SRTELSCOPE ADDR EXT, / PASE OF LAST ENTRY TI 
PREVIOUS ELOCX*/ 

32 SKT, 

MP BYTE EXT, 





PAPMNUMLOC(PSTACXSIZE) ADDR EXT, 
PARAMNUM EYTE EXT, 
PFTADDR(PSTACKSIZE) ADDR EXT, 
EERE SSSTE(PSTACKSIZE) BYTE EXT, 
BORMSHIELL(PSTACKSI 22) RYTE EXT, 
VAR(PSTACKSIZE) BYTE EXT 
VARC(VARCSIZE) BYTE EXT, 
EASE(PSTACKSIZE) EYTE EXT; 


RE DECLARE FPXTERNAL PROCEDURES, FOUND IN SYSRTS 


GENERATE: PROC(OBRJCODEF) EXT; 
DCL OFJCOLE EYTE; 
END GFNEPATE; 


EPROR: PPOC(FRRCODE) EXT; 
BER ERRCODE ALLR; 
END ERROR; 


MOVE: PROC (SOURCE,DESTIN,L) EXT; 
Del (SOURCE,LESTIN) ADLR; 
HOT L BYTT; 

END MOVE; 


MONS: PROC EXT; 
UND MONGE; 


BENADDR: PROC(A, BR) PIT; 
HVA BYTE,R ALLIR; 
END GENADDR; 


/* ERESI JK ASAE AERE AE AE ALSE SERE SE NEESS AERE SEa Seas 3e eX CIA RIE 
w Des ATDRESSSPTR = THIS. PROCEDURE. ST Ts As 
EE C INTER TO A SPSCIFIC LOCATION IN DES *¥ 
Seo UBOL TABLE. * 


AER NINE E ROK OKA 


> 


STTADDRPTR: Bou PUB; 
DCL OFFSET BYTE; 
APTRALDR = BASE + OFFSET; 
END SETADDRPTR; 


ASES SOK HS AEDS RNE ALAS RE EI NEL HERES HS SSS DE TS SS NE AS SIE TS BSE BE AS AS HS 9⁄2 2 2⁄2 2 


MSI PASTSPRINTNAME — THIS PROCEDURE SETS 


* APTPADDR TO A LOCATION IN A SYM30L ASLI Pe 


* ENTRY THAT IS PAST THE ENTRY/S PRINTNAME * 
* (WEICE IS OF VARIABLE LENGTE). * 


BE AS BS AS BS FEE BE IE NE IRS IR ASIA BIS TIE AS AS AS BIS BS SAS TS RI K TYR TE NS SEE BIS EIS NONONO NAT NN 


SETSPASTSPN: PROC(OPESET) PUB; 

POLT OFFSET BYTE; 

ШОП SETADLEPTE(6): 

CALL SETADDRPTRÍPYTERTR(2) + OFFSET); 
END SETSPASTSPN; 


we ate «lo «lo ale ale ale ate ale at Ae al to wie sl Ee mi to wi Ze wi ' t tay’ te ete [D ato 
Han RR CD ecc e e E EE EE EE 22 22 22 2: 


v A 
A 


HUNT 


min ates 
Asas e 


alo mts nºs ato 
e өү» ar as 


ale sis se ale ate ate we ate ate ale ale ahs ale ale ale ate ala sla ale nto nto nto ate ala ale ale ale 
ey ye e ^v ы A» Ll hd e. eye ЫГЫ Ld hd às Ta AT er “ү ya 21° ЫГЫ 2; ^ > Ld hd . ¿e > ЫЫ 


ate 
La da 


* CALCSVAPC — TEIS PROCEDURE DETERMINES: TEE SÉ 


LOCATION OF AN IDENTIFIER PRINTNAME. * 


ed 


/ 





«lo "lo «lo «io ulo nla ubo «te ade e 


CALC 


END 


/ ale ale 
ee 23° 


ole 
GK 


ste 
or 


SETI 


lo slo «Jo «lo «lo «lo «lo «lo ula lo ula ulo nto ala ato ne nbo ale de ulo ula Ma nla Wa ulo ato abe ale ate ale ale sie ato slo alo alo ab 


AAC: PROC(A) ADLER PUB; 
ELA PITE; 

RETURN VAR(A) + .VARC; 
CALCSVAPCS 
a EE e gle ne nie sione mig mka mta sho mta ate mg oye Oe IG BIG nig 
SETSLCOKUP - THIS PROCEDI JRE IS UO DO 
„IND E HASH ee OF AN IDENTIFIER. > 

E RENE NEI AL ALAS TE SS BS EIS NE SS BI ENEE IL SIS 2S BLE SIS AES TE BS KR ASAE AS ES ASS IS oie AT AR / 
DOXUP: PROC(A) PUB; 

BEL A 3YTTF, 

PRINTNAME - CALCSVARC(A); 


ENMEASH - HASH(A); /* YASHCOLE OP PN */ 


END 
/* 
/* 
/* 
/* 
/% 
/* 


t 1 
/ er 


ENTE 


SETLOOKUPS 

A a Sn 22 52 2 232 a mie sio nic sie pie NO NO NA NG Sir Se Sie su dee si gie sie sta slash Z 
ENTERSLINKS - TEIS PROCEDURZ ENTERS IN E * 
MO POUR BYTES OF TEE SYMBOL TASLT TEE */ 
EEGEN: FIELL AND THE PREVIOUS SYMBOL */ 
ENSE ENTRY ATURTSS FIELD FO? TAY NEXT */ 
SYM30L ID. (BOTE R Bo a) 
MED E EE NS Ee AE DR Ve Ma YS se NI MAAS DY de IE BIS AROS SAR IR AS a cistos 
EG LINXS: PROC PUF; 

КО APITADER, SBTBLSCOPE = S3T3L; 
SCOPE(SCOPESNUM) = SBTBL; 

ADDRPTR = HASHTABLE(SYMHASE): 

CALL SETADDRPTR(2); 


ADDPPTR = PRVYSSCTSENTRY; 
DE MSSETSENTRY = SBTBL; 
EASETABLE(SYMHASE) = BASE; 


END 
[7835 


ә 
ae 


ale 
X 


se 3t 


aip s 
es. 


CEKS 


END 


pes 
/* 
A 
p 
[3 


LINES: 

E ERIN TENANE = PAIS PROCE LURE DOES A "e 
BENDER TO CEARACTER COMPARISON DETWEEN * 

MOMO CURRANTLY RECOGNIZED IDENTIFIES AND = 
SYK3OL TABLE ENTRIES UP TEE SAME HASE VALUE .* 
NEE SS UC DR CCI DSR 2 2224 24212 22 22 32 22 OSS AR SEIS OSS ARES AR HESS HE A A / 

BOI NAME: PROC(A) EYTE PUB: 

Pee lo OFFSET FROM BASE TO PRINTNAMS */ 

DCL(N BASED PRINTNAME)(1) BYTE; 

POT (LEN,A) EITE; 

CALL SETADDRPTR(A); 

IF ( LEN := BYTEPTR(2) ) 
DO WEILE (BYTEPTR(LEN)=N 
IF ( LEN := LEN-1 ) = 

RETURN TRUE; 

END; 

RETURN FALSE; 
CHXSPRTSNAME; 

SAL AE RE RENE DIE NE NE NENTI de de de d de e de de de A NE E dee dee de de IS AE BS ES SIS BIS BS E NERE NERA NE / 
LOOXUPSPRINTNAMPS IDENTITY - TEIS PROCELURE */ 
EASED THE LOCATION OF AN IDENTIFIER IN */ 
DEO PROPUCTION RULE, ANG ITS TARCET ENTRI */ 
e JE THE IDENTIFIER IS FOUND WITH TEE “/ 
Monkees TIPE THE PPOCEDURE RETURN TRUE, */ 


Ler 





MERO FALSE IS RETURNED, EZ, 


o we mla aa ala ale Ma ale ala ale sia sie ala ule ulo ala ala ale ale alo 
BKA LET IO AO IA INIA IA NINA IO IA IA IIA IA IA NI 


LOOKUPSPNSIT: pre a SIPSENTPY) BYTE PUB; 


Wee (A, ITS SEN TRY) RYTE; 
BALL STTLOOKUP (A); 
BASE - HASHTARLE(SYFHASE); 
me CETLE PASE <> €; 

BALL SETADDRPTR(4); 


ITO BFTFPTE(Z) AND FORMMAS? ) = IDSENTRY ) Tre: 


IF CEXSPRTSNAME(E) TEEN 
an E OB (BASE DE 


SCOPE (SCAOPESNUM—1)) 


OR ((ITSENTPY = TYPESENTRY) AND (BASE < 


SCOPF(SCCPESNUM) ))) 


TEEN DO; 
LOOXUPSAILR=PASE; 
[ЕГОР ТЕШЕ; 
END; 
CALL SETATLRPTR(C); 
BASS = ADDRPTR; 
END; 
RETURN FALSE; 
END poe eth iD: 
е EEE ERIN AA AAA AS 


Des LIMITS I NJE C de 


3 


ee, 
/* SYMBOL TABLE ENTRY ABOUT TO RE INTERED */ 
/* WILL NOT zXCEZD T3z UPPER LIMIT OF THF */ 


BAE ILAPLE SYMEOL TAPLE ADLLRESSES. “/ ` 
EN PARAMTTER IS TEZ BYTECOUNT OT TEE */ 
He ENTRY TO HE ENTERED. i 


e ale id с> te en XX Ce = <> ala aho «Lo a ala alo nto ate ale atento ale nla alo alo ala We 
ø ø TOT AS zur es ën ër rs 


ar nig a Se sa u HE Ra 
ey Sas CN MS SN On 74% Hye yr 23° 24 ' 


MA Sig pie ala ale te ale ale sic nia BIG ie ala ale sie ses 
LIMITS: PPOC(COUNT) PUB; 
BER COUNT BYTE; 
IF SETBLTOP <= (SRTEL + COUNT) THEN 
DO; 
EL ERROR ( TO’); 
BALL MONS; 
END; 
END E 
Ne N de de ie He SI NE AE Die HE AE ie He Re Aa EE EE NG NG PING NG ie ES Mee ee ee / 
= a Sa PROCRLURE +; 
RECOADS THE SYMBOL TABLE WITH THE FOLLOWING: */ 
Sa COLLISION FIELD */ 
foes PREVIOUS SYMBOL TABLE ENTRY ADDRESS */ 
Bore FORM OF ENTRY ( PRESET BYTE FORM ) */ 
/ 4. TEE LENGTE CF TEE PRINTNAME IN CNE EYTE*/ 
* 5. TEF PRINTNAM? CHARACTERS */ 
/* PARAMETER: PRINTNAME x SET y 20 CALL. =) 


ade a a - 
/* oye SSIS de de de de TIE S XO de BIE BE AE AYE BS AAS SIS SK AK AK AK IS BS TE AS OE BS TIS BY BE E NINE SIS OK AS OE ANNUM Ww / 


ENTERSPNSID:PROC PUB; 


BEL I BYTE; 
Mem (Ne BASED PRINTNAME)(1) BYTE; 
ME LIMITS(1:5N(0)47): 

NULL ENTERSLINXS; 





CALL SETADDRPTE(4); 
PRTEDUR(E)= FORM: 
CALL SETADDRPTR(S); 
RYTEPTR(Z)= SYMUASE; 
CALL SETADDRPTR(E); 
3YTFPTR(C)=N(C); 
CALL MOVE(PRINTNAMFEF-1,S2TBL-7,N(2)); 
E STUSSE"BLSID = SBTBL; 
SBTBL=SBTBL+I; 
ENT PNTER SPN SID: 
pa GENEE DAS BE SIE FS HS AE NIN ee de EA E ee ee ee ELE ELE EED 
/* B "NTITY - TEIS PROCELURZ m 
/* CALLS FNTERSPNSID TO LOAD TYE SYMPOL TABLE */ 
Pe ENTRY CURRENTLY BEING SCANNED. IT ALSO */ 
/* GENTRATES TEE Ri S° ТОПУ зү CU 7 
/* A ROOLEAN “OR” OPERATION ON TUF IDSENIRY */ 
/* AND TEE. PARAMETER A x / 
ү“ a AA NG NA NA OE AE RE ae Pam Oye IE IE IE IE AI HEHE II HE Dee 4 
EN NTEDSVARSID: PROC(A R,IDSENTRY) PUB; 
DEL (A.B, IDSENTRY) BYTE 
үе LOOZUPSPNSID(3,IDSENTRY) TEEN 
DO; 
PRESENT = TRUE; 
RETURN; 
END; 
/# ELSE ENTTR VAFP NAME */ 
PRESENT = FALSE, 
FORM = A OR IDSTNTIY; 
CALL ENTERSPNSIT; 
NIDOS ENTRY = VARSENTRY THEN 
DO; 
BRL LIMITS(4); 
Mees SAS TI(VARSPTR) = SBTBL; 
SRTBL = SBTRL + 43 


END; 
END ENTERSVARSIT; 
[кх A le o ie deseo deo HE IT DE IE RC HT DE Si >. ж, 
ye SUTSLAESL - TEIS PROCEIURZ ASSIGNS A LABEL */ 
o TO TEE CURRENT DECLARED LABSL AND INCREMENT/ 


pe TEE OO i (RISE = S BI SCH 
ps DE DIS dee NENE NN EN EEE NENE NE EEE ENE TIS ONS IIA d 
METSLABTL: PROC PUB; 
DEDUEPIR-LA3LCOUNT; 
LARLCOUNT-LAELCOUNT-*1; 
FND SETSLABEL: 
[783 DS BIS IS HE SAS BLAS HS EAS AE BLAS BE AS HE NIE ACNE EAS BS ASS NANANA NET NE E E E AE EE SC / 
N ENTERSLABEL - TEIS PROCEDURE eee A RS eem 2 
ENTRY INTO THE SYMBOL TABLES. SYMHASE AND */ 
E. PRIN TNAME MUST PE SET PRIOR TO. un) Qd 
ET ER Ee Me ME es Ma MERS Re Me RR AS MO De a Au An ee AAA / 
EN Eo HE AG PUR; 
Ea LIFITS(2): 
PTRADDR = SETEL; 
CALL SFTSLABEL; 





373 
WW E 


"€ 
3c 


sta ta AE AS > > er sé ala als ole se este ste ale ste pag alaala Sse = ale abe ale ate ate abe ale ate ale ate sie 
aye AS AS 2,5 28 AAR AE AAS AS AA”, s em e >< > Au. S AS AS AS eS ram m 2," HAS A 


КО oA TSLOCATIONS — THIS PROCEDURE ns- >” 

EBUTOCATES PRT LOCATIONS FO? ALL FUACTIONS * 
ЕШ ОХ ОАО PROCEDURES ANE-TEEIR ASSOCIATEL* 

. ` Tl ta ^ 

EDEN Ee leese SK 

RSPRTÉLOC: PROC PUB; 

TCL (I.P) BYTE; 

CALL SETSPASTSPN(7): 

DN BYTEPT2(@)5 

PARAMNUMLOC = APTRADIR; 

moet = i TO P; 

MELO SETSPASTSPN(2)5 

APTRADDR = ADDRPTR + ((I-1)*3); 

DO CASE (SER(BYTEPTR(E),3) ANL FORMMASK); 


24 dt 
2% 
m 


n'e Se ale ste sie 
eS S Xn aS 


E % % 4 
3 


Medit = /* SCALAR */ 
ALLCSOTY = 2; /* INTEGER */ 
ALLCSOTY = Ej /* REAL */ 
Le TY = 1; /* CHAR */ 
EETOSOUY 2 1, 7* BOOLEAN “/ 


END: /* OF CASE */ 
APTRADDR = APTRADDR + 1; 
ADDOPTR = ALLOCSADIR; 
PARADOR = TEMPALDTRI; 
APTBADDR = APTPADDR + 63 
APTRADDR = APTPADDR + 1 
ADDRPTR = ALLOCSATDR; 
BBELOGSADDR = ALLOCSADDR + ALLCS$CTY; 
TEMPADDR1 = APTRADDR + 4; 


+ RYTEPTR (J); 


END; 
END E Io 
/ A A le o el E e SDS NO IE IE A A TE IE FE I sis 22 75 


E ENTERSSUBROUTINE = TEIS PROCED UN ALON Ar 
ENSUSPOUTINE ENTPY IN TEF L DA Ur 

* PARAMETER NUMBER LOCATION IS STORED AND THE * 
E SCOPE m IS EE D E (ONE. E 


la bo " este sts sto ata at aÐ IEEE 
BE HE AS IE AC AE AE ER KESS AS E AE AE AS SE S REONE AOE AEA HOE A RIE RE IERE N AS AAA / 


ENTERSSUPRTN: PROC(A А,Р,ТТФЕЗТЕҮ) PUB; 
ET (AB, IDSENTRY) BYTE; 
Sos TNTEPSVARSID(Z, SP, IDSENTRY) 5 
IF NOT PRESENT TEEN 
LO 
moet LIMITS(4); 
PARAMNUMLOC = SRTRL; 
BEITI = SETEL + 5; 
CALL SETSPASTSPN(1@); 
ADDRPTR = ALLOCSADIR; ALLOCSADDR = ALLOCSADER + 2; 
MEL SETCPASTSPN(14); 
ADDRPTR = LABLCOUNT; 
LARLCOUNT = LARLCOUNT + 2; 
SBTEL = SRTBL + €; 
IF IDSENTRY = FUNCSENTEY TEEN 
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J 


О 


Gm de 


En O3BLSL + 15 
’ 


Gi 


AND 
END; 
ELSE DO; /* FORWARD FUNCTION */ 

CALL SETSPASTSPN(14); 

IF IDSENTRY = FUNCSENTRY THEN TEMPADDR1 = APTRADIR + 


Meo TE MPADDRI = APIRADDA + 2; 
BALL SETSPASTSPN(10); 
ALDRPTR = ALLOCSADDR; 
ALLOCSADDR = ALLOCSATTR + 2; 
NIE ALTEPSPRTSLOC; 
END; 
PARMNUMLOC(MP) = BASE; 
SCOPE(SCOPZSNUM := SCOPISNUM+1) = SBTBL; 
ENT ERIN; 
[Ех sas aa Slesia slo nie sie slo case e e secs ade da sie este su ste 7 
er LOOKUPSONLY SOCIA IS PA SEE Tad Y 
WEWPOSITION OF A IDENTIFIER JUST SCANNED IN */ 
TEE CURRENT PRODUCTION ( SP,MP,MPP1 ) AND */ 
Pees lUPNS TRUE IF THE IDENTIFIFE IS FOUND IN */ 
y E ТУЗО ко: E 


/ M 2t ER > en. ale a > e D Se Se == als sa SS Ir whe ale whe ales ale ulo ulo ube alo nba alo ulo nta ulo alo ulo alo ubo ale ube 
^ ы ы ag Aë i257 <A Ne x ae ig OS “IS TN AIS OS gur zs ës d ës ës es ës ds és gz es cs us es / 


BEER. uir. PROC(A) SY TP РОЗ; 
Der A BYTE; 
КАРП SETLOOCUP(A); 
BAST=HASETABLE(SYMHASE); 
DO WHILE BASE <> Jj 
IF CEXSPRTENAME(S) TEEN 
DO; 
LOOXUPSADIR=PAST; 
RETURN TRUE; 
END; 
ELSE DO; 
BALL SETADERPIR(C); 
BASE=ADDRPTE; 
END; 
END; 
RETURN FALSE; 
END LOOKUPSONLY; | 
fi do dde eo e geg de e ee e e Me FC vi 
/* TEIS CEDURE. CONVERTS A - PAL x / 
/“ NUMBER IN THE PROGRAM TO A BCD */ 
/* REPRESENTATION, */ 
Y SI NE e DIE MENO die nie die DN NE De 
CONVRTBCD: PROC(A,F) PUB; /* A=S P/M 
MI, JI, DELAG,EFLAC,SFLAG,A,E) 
DCL (N BASZD PRINTNAME)(1) BYTE; 
DCL (EXPONLNOP, EXPSIGNLOOP) LABTL; 
MANO SETLOOKUP(A)S 
Pe TNITIALIZE VARIABLES */ 
EULACSPALSE: EFLAG=TRUS; DFLAG=TRUE;: I=1; 
DO J=@ TO 73 BCINUM(I)=03; ENT; 


se n'e nio slo ale ate 
“es a 
TAS ^ 


ne BASE Se 
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J=0; 2XPON=64; /* HCL */ 
Zë REMOVE LEADING ZEROS */ 
BREWSILE ((N(I) - 2°) = 2); 
WEE? 
BE OTEN (@)#1) TEEN GOTO EXPONLOOP; 
FND; 
/* LOCAL BCDNUM WITH SICNIFICANT TICITS #/ 
Me ILE ((N(I)- “0 ) <=9 CR N(I) = 7.7); 
BENT) = °.” TEEN 
Do! EELAGSFALSE;S 
sN) TEEN GOTO EXPONLOOP; 
INI + 1; 
ENI: 
PLST 
DOP 


bei E = 2 ANT LFLAG AND (NI) = ’e°) = e; 
FXPON = FXPON-1; 
Ba NG ANN COTO EXPONLOOP; 
E 
END; 
IF J = ( BCISIZE-1 ) THEN GOTO FPXPONLOOP; 
IF DFLAC TEEN /* FIRST ECT PAIR */ 
DO; 
BCDNUM(J)=ROL((N(I)-7297),4); 
BEBAGZEALSES Ts I1; 
IF FPLAG TEEN EXPON=EXPON+1; 
END; 
EST 
DO; 
SCDNUM(J)sSsPCDNUM(J)-(N(I)-^2^/ 
EST -I tij 
BG TRUE; IE EFLAS TEFENOSESXPONSEXPON-1: 


END: 
IF I=s(N(&)+1) TEEN GOTO EXPONLONP; 
TND; 
END; 
EXPONLOOP: 
BENT) = 'r' TETN FFLAS - FALSE; 


NENNEN з (N(2)+1) THEN GOTO ZXPSIGNLOOP; 
IF EFLAG THEN 
DO; 
NUEWEILE N(I) <> “. ; 
EXPON = FXPCN + 1; 
MESI 1j 
END; 
ШЕТ + 1; 
END: 
DO WHILE I € (N(2)+1) AND (N(I)-"3) <= 9; 
f= 1 + 1; 
END; 
Ieee YPFNUM = RRALTYPF TEEN QOTO EXPSIGNLCOES 
lI) = E */ I = I+1; 
I7 TVPENUM = SISNEDSTXPON TEEN 
DO; 


12% 





Шы = ZD THEN SELAG = TRUE; 
SE | +) 3 
END; 
IF I = N(0)+1 TUEN 
Bo; 
CALL FRROP( (FF?) 
RETURN; 
pun; 


DULAG = 0; 
ШЕШ - 1 TO N(Z); 
DFLAC = (DELAC*10)+(N(J)-10%); 
UND 
IF SFLAC THEN /* EXPONENT CALCULATION */ 
EXPON = EXPON-DFLAG; 
ERES PXPON = EXPCN + DFLAG; 
FXPSICNLOOP: 
ECDNUM(BCDSIZE-1)-sROL(B,7); /* SIGN OF NUMPER */ 
IF EXPON > 127 TEEN 
DO; 
ENDE FRROR( EE”); 
RETURN; 
END; 
ELSE BCINUM(ECDSIZE-1)=ECDNUM(PCISIZE-1)+FXPON; 
END Bee TCD 
Ee TORUM AE EE REESE tac nes RE NA DE NR LA / 
BECONVERTI - “EIS PROCEDUR? 18 PASSED A, THE*/ 
EATON OF A CONSTANT IN TETU PRODUCTION */ 
* AND Pp THE “SIGN” OF TIP INTEGER. TIE * 
* FUNCTION GENERATES A SICNED 16 RIT REPRE- */ 
* SFNTATION OF TEE NUMBER AND RETURNS IT IN */ 
/* E ADDRESS VARIABLE. BU 
pe EEE NA ALE NENE EA E NL E TAE EN AIS I AS BIS TIS IS SIS BS BIE SIS SiS AS 
CONTERTI: PROC(A,3) ADDRESS PUB; 
BR CI,A,P) BYTE; 
DCL (N EASED PRINTNAME)(1) BYTE; 
DCI NUM ADDR; 
CALL SETLOOKUP(A); NUM-2; 
HUN TO N(0); 
IT (MAXINT/10) >= NUM TEEN 


EE RR 


DO; 
HAIN LE NUM AND (N(1I)-"8") > 7 TEEN 
DO; 
CALL FRROP( IE] 
RETURN NUM; 
END; 
NUM=(NUM*12)+(N(1)-"2%);5 
END; 


mse DO; 
CALL FRROR( IE); 
RETURN NUM; 
TND; 
END; 
IF B = POS TEEN RETURN NUM; 
IF NUM 2 MAXINT TEEN 


MAG 





DO? 
CALL FRROR( IF"); 
RETURN NUM; 
END; 
RETURN ( - NUM); 
END CONVERTI; 
pa Bye NE NE NE DICE N NINE E SS SIE Ses Deh aye Dye DIE DI NE RT Dia DIS RIS di DI DIC DDD ASS / 
/* S CONSTANT Т5 РЕОбЕГОЗЕ IS CALLED */ 
/* WITH TYPENUM SET BY THE CALLER. THE NUMBER */ 
MUST BF POINTED TO BY SP IN TSE PRODUC- */ 
ШО 10. TRE PROCETURE RETURNS WITH CONSTS */ 
/* NUMSTYPE AND CONSTSVALUE SET WITH TEE */ 
/* NUMBER DIE TTS ERNAL FORM. i 
EE APE EER Z< X< 222 xç X< 22 2 22 2224 2° A HE HE AT RER AT FE IC IE SR ASAE RENE AS EAE HE / 
MONVRTSCONST: PROC(A) PUB; /* A=POS NBG Pi 
DOT A RYTE,INTSADDR ADDR; 
IF TYPENUM = INTEGERSTYPE THEN 
DO; 
INTSADDR=CONVERTI(SP,A); 
CONSTSNUMSTY PE(CONSTSPTR )=INTEGERSTY PE; 
CONSTSPTR=CONSTSPTR+1; 
CALL MOVF(.INTSADDR, .CONSTSVALUT(CONSTSINDI),2)5 
CONSTSINDX=CONSTSINDX +23 
END: 
EISE DO; 
CALL CONVRT3CD(SP,A); 
CONSTSNI IME TYPR(CONSTSPTR)=RE ALSTYPE; 
CONSTSPTR=SCONSTSPTR +1; 
BEA NOTE. .BCTNUM,.CONSTSVALUE(CONST5SINDX),BCTSIZF): 
CONSTSINDX-CCNSTSINLTX-ECDSIZE; 


e 
END; 
T; 
END AT CONS › 
/* IE onec no a aeo A TAS Ops de de odes e xxx xxx / 


/* vas TAN - — AFTER TEE NEXT EN < / 
SAS HAD ITS LINKS ENTERED IN?^ THE SYMBOL 
NETTE, TFIS PROCBLURE ENTERS CEE CONSTANT 
BLUE INTO TAP SYMBOL TABLE AND SET T5E */ 
/* ENTRY’S FORM Ro IRE APPROPRIATE, E . 


nto ate ate ate ale als ale ate ale ale ale le x ч ste > en ste > evs y ste so e a. 
t 


BE 
p 
nf 


ENTPSCONSSNUM: PROC PUB; 
CONSTSPTR=CONSTSPTR-15 
IF CONSTSNUMSTYPE(CONSTSPTR)= INTEGERTYPE TEEN 
ШО; 
CALL SPTADDPPTR(4); BYTEPTR(2)=E OR CONSSENTRY; 
CALL LIMITS(2); CONSTSINDX=CONSTSINDX-2; 
PEN VOTEC.CONSTSVALUT(TONSTSINDX',SBTBL,2)75 
S TDL=SRTBL+2; 

END 

FLSE DO; 
CALL SETADDRPTR (4); BYTEPT?(2)-197 OR CONSSENTRY; 
MEN O LIMI TS(ECLSIZE); CONSTSINPX=CONSISINIA-ECISIZS: 
BEL MOUEC.CONSTSVALUF(CONSTSINDX),S3TBL, BCDSIZE); 
SETPL=SBTBL+BCDSIZF; 

END; 


1⁄9 





END. M a aNG 


/* PNTERSSTRING - AYTER TEE "LINZS" A'ID "FORM */ 
LAng ENTERED INTO THE SYMEOL TABLE, ыу 
КОО OCFDURE LOADS ANY IDENTIFIER ALONG WITH */ 
Melis LENGTH. (USED WITH CONSTANT STRINGS */ 
RAND CONSTANT ILENTIFIZRS ) */ 
/ AS AS 213 K AS 2,5 RENA ENE A NE E AER ER AS AS AS BIS BS NS SIS IK aS Ne NE AS SIS oie NE / 
ENTERSSTRING: PROC(A) PUB; 
DCL (N BASED PRINTNAME)(1) BYTT; 


DCL A STTE; 


CALL SETLOOKUP(A); 

ETO LIMITS (N(@)+1); 

CALL MOVE(PRINTNAME,SBTBL,(N(2)+1)); 
SRTBL=SETRL+(N(2)+1); 


. B RING, 


Br es 


ы 


ж BE ONS TANTSIN — TETS PROCEDURE ENTERS u 
* TEE FORM FIELD OF A CONSTANT ENTRY INTO * 
a THE SYMBOL ТАЗЕ, x 
BG NG BS Be NG Pe BG NG NG NG NG DT NG NG NG OR NONO NE NG BIG NANG NG NG NO NG NONG NUNG ONG NONG NG NG NANO 22 z< 2° 32 212 Xš / 
ENTRSCONSSID: PROC(A.3) PUB; /* EE < 22MP/MPP1/SP */ 
Eu 1.8,C) BYTE; 
C=POL(A,E); 
mero SETADDRPTR(4)3 BYTEPTR(2)=C OR CONSSENTRY; 
Men ENTERSSTRING (SP); 
CONSTSPNSPTR=CONSTSPASPTR-1; 
CONSTSINTX=CONSTEINDX-CONSTSPNESIZE (CONSTSPNSPTRO?; 
PND A 


DS FS BS BE AS 2H BK SIS DIS HS AS TS AE 5 RR AE FS HSS EAS NE AL DSHS AS ASAE 3's AS SS HS AS AS AS 91S BS aig As AS 
-— 


ж BE PADA ENTRY THIS PROCEDURE x 
* DITERMINES WHICH TYPE OF CONSTANT ENTRY IS * 
set) BE PNTERED IN THE SYMBOL TABLE, ANT * 
* AND CALLS TEE COCRRESPONDING PROGELURE TO * 
x „МАКЕ, TRE ENTRY. * 
HE RE BE ASHE EBS HE SBE IE ALAS AL IE FS EAL BSE ASAE TE SAE FE AS BE 2S ATS BIS IIE IE 21S NE TS FS ARIS TS AE AT AS d 
EE eni: PROC PUE; 
VECPTR=VECPTR-1; 
DO CASE EXPRESSSSTK(SP); 
/* CASE CONSTANT NUMBER */ 
CALL FNTRSCONSSNUM; 
Zë CASE IDENTIFIER CONSTANT */ 
CALL ENTRSCONSSID(POS,SP): 
ESTAS E SIGNED IDENTIFIER CONSTANT */ 
CALL ENTRSCONSSID(NEG,SP); 
/* CASE CONSTANT STRING */ 
DO; 
CALL SETADDROTP (4); BYTEPTR(2)=1EH OR CONSSTNIPY; 
CALL ENTERSSTRING(SP); 
CONSTSPNSPTR=CONSTSPNSPTR-13 
CONSTSINDX=CONSTSINDX-CONSTSPNSSIZE(CONSTSPNSPTR ‘3 
END; 
END; /* OY CASE CONSTSTYDE */ 
END ENTRSCONSSNTRY; 


ate <> S zez 
AAA BS AS AS ASAT AS AAA MNA 3S 2,5 5,5 35 


o sie 
`n 





= sto ste ste ste alo 55: sê st ale alo s'e te ade alo alo ato alo vio ato q teste nba ala no alo alo abo alo alo ale sl >. ato alo ste n'e ale slo ste ata 
` 
BERN nn DERE EEELEKLE LA A ern > 38 2,37, ys SN 


pa ENTRS CPLXSTYP sad EE KE IS #7... 
/* CALLED TO ENTEP TFE LINES AND FORM FOR */ 
Melee COMPLEX TYPE SYMEOL TAELE ENTRIES. */ 

Ba ET THIS ENTRY NEVER HAS A PRINT- */ 

* NAMF ASSIGNED. */ 


Je «le ste ste ale ats ste sieves > a als ate le ale ale de z Ye ste ses bø s'e sas So Ass: sie bø al ste se ade ale abe stes ts do lr xls els «ip 
1 vi vi^ ed AS > = n° as x Së TAS me ne ya 3, Zus e ra rum AS =< So "sea x iA x > e At WE 4° 245 Pa jo / 


ENTESCPLASTIP: EU PUB; 


LN 


b ond 


E 


DCL A PYTE 
Wet LIMI ns (E ); 

BASE APTRADDE=SBTRL; 
ADDRPTR=8 2235; 

CALL SETATDRPTR(2) 
ADDEPTR=PRVSSBTSEN 
Ek EAST 
el SETADDRPUR(4) 
Rss Lech? 
SRTRL= E 

END ENTRSCPLXSTYP 


ale ale bo ate ato ale ate ale ale a ote ^ ado SI: - abo a ests ste Le 
ey ns er pe n a. A As ^* 2,8 es 24° 23° 24° Së = Së = =< > Së > A ^S A A x o» > NG =. AS sen ds, SÉ A et < Ce A > < a. >. won. 1° 24° 


Ki 

Me OS TRSTYP —- THIS PROCEDURE IS * 
EN PIT BY Tha TYPE” PROLUCTICNS: */ 
EN SET TYPE */ 
EN. FILE TYPE * 

EN POINTER TYPE */ 
A 

Á 

Á 

^ 

ы 


, 
ТЕ; 
; 
; 


CALLS FNTRSCPLXSTYP TO SET UP ITS */ 

* "LINKS AND FORM Bs di S оу 

F D icr Doo AND COMPLE TR. WA 

E AIC NC SEE OXON XC ale Bek NS DI RIC sie Dic PABEBE = ee DMD Cs O Sa o SR E O SC SC ana NS e cs 1 


ESTE PYP: PROC(A) PUR; 
TCL A EYTE; 
EL CNTRSCPLXSTYP(A); 
BE LIMITS(2); 
MALOS ETADDRETARÍS); 
Pee PTR=TYPESLOCT? 
SPTPL=SRTRL+23 
ie eS LOCT=EASS; 


END PNTRSSTRSTYP: 


Da ste sie gaso alo sie ` lo alo slo ade = ale 5 2 en wate ale als ate ate ata ale ale sie nto onde no. 
x AS AS A PO IU IA IA < x° > sa > Se С >; SEC ie ne zt Des a R PK SIN x AM 


EO SPARAMNTERSTYPE — THIS PROCEDURE * 
BATS 3 BITF O? CODE YOR FACE SUBaCUT- 

МОО PARAMETER TRAT WAS RECOGNIZED ANE PUTS = 
EE EOLLOWING INFORMATION IN TSE SYMEOL * 

EN EE 1. TYPE CE PARAMETER ~ 

RELATIVE LOCATION OF PARAMETER. * 


ma alo =< nt > ner E ale sie ses to ato sie ate als He, Së sE 25 bø ste s ante nie ate ` e ale «lo abo abe ste aby alo alo abo ala vio «to ste v? Es be ata als 
nb Zu ee y. AR S eS SS >< Se sis AN ey. n es Bag 23° 2,3 HS. >, TAT TAS RAAT TE V e > naga 


re se sie sie s tos ate 
e AS oi. SIE Mg 


me SoPRMSTYP: PROC PU3; 


APTPAPDR = PARAMNUMLOC + 13 
ATDROTR = SETRL; 
КК ЮТ = SSTBL + Z*PARAMNUM — 2; 
BASE 2 LASTSSPTPISID; 
DO WEILE PARAMNUM O €; 

BATT STTADDRPTR (4); 

MEVPEYT I: = BYTTPTR (2); 





ADDRPTA = TEMPADDR; 
DEGREE - SPTEL - 4, 

CALL SETADDRPTR(2); 

BASE - ADDRPT?; 

PARAMNUM = PABEMNUM — 1; 

TND; 

APTRADDP = PARAMNUMLOC; 

SBTEL = SPTBL + S*(EYTEPTR(0)+ 1): 
SND TNTRSPRMSTYP; 
* PARMSPYTTS ~ THIS PROCEDURE ENTERS T^Z NUMBER * 
OF BYTES OCCUPIED BY A ‘PARM’ I 


BRR AS 2 
Es E El el IN a ER IE D see 1 
SNE AE SE SEEN AI Ze ee ege de e de NAAA A 


PARMSBYTES: PROC(LOC); 
DO LOC EYTE; IF LOC-9BH THEN 
CALL GENERATT(E2E): ELSE 
IF LOC=13F TETN 

БОП CENERATE(2ER); 

ELSE 
CALL GENFRATE(21E); 

END PARMSEYT3S 


ste = 2 Ja > at = =< e. Sas ale ale ale ale ale ale ale ate als ale 
> p ses eo > HE ca en “O AA IIA AA IIA IA S AS 


e BE Aas Ere i — THIS PROCEDURE ENSURES 
* A PROPER MATCE UP BETWEEN THF SUBROUTINE’S 
FORMAL PARAMETFES AND THE CALLING ACTUAL * 
PARAMFTERS, * 
Be ee ae a ze Die ae ae dee npa Me Bye OS NAG NG NG Ne Oe 
BUILTSINSPARM: PROC PUR; 
APTRABDR = PARMNUMLOC (SP); 
Become = APTRADLRS 
AY TEPTR(Z) 2 138 THEN 
OR CHECK FOR INTEGER OR RTUAL INPUT */ 
IF NOT(((SEL((EYTEPTR(O) AND FORMMASK),2) OR 
VARSENTRY)= 
(FORMSFIELD(SP) AND 7FE)) 
OR ((ROR((BYTEPTR(C) ANI 702), 
(FORMSFIELD(SP) AND 772))) ТЕ 
CALL TRROR( IP’); 
ELSE 
DO; 
CALL GENSADDR(PARM,PR 
CALL PARMSEYTES(2YTEP 
END; 
END; 


o a re» oc 
ZS HS AE EE SS AS UM 


D 


tU i 


DÉI 
Ss 


со 
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laon VACSUENTET E 
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ILSR Eydon PTR(Q) = EFZE TEEN 

Der 
ESEP (TOR EITLE(SP),5) = 466 THEM /# CAN T BE 

BALL KANOR IP ); 
FLSF 

Ds 
CALL CENSALTR(PARM, PRTSADDR(SP)); 
CALL PARMSBYTES(BYTRPTR(A)); 
END; 

END: 

TLSE DO; 


КО ОООО (Г СП (BI TEPIR(Z) AND FORNMAST),3) OR 
VARSENTRY) = 


BORMSSIELD(SP)) THEN 
CALL FRROPR( IP); 
ELSE 
DO; 
CALL CENSADIR(PARM, PRTSADDP(SP)); 
CALL PARMSEYTES(BYTEPTR(@))3 
END; 
END; 


END; 
PARMNUMLOC(SP+2) = PARMNUMLOC(SP) + 13 
IF S"R(FORMSFIELD(SP),7) THEN CALL GENERATE(LODI ); 
SR SUILTSINSPASM;, 
x КО ENSPARAMETERS - т 
* A PROPER MATCE UP BET: 
x TORMAL PARAMETEPS AND 
3 HI ons. D 
warnen AI E IS / 
ASSIS INGPARMS: PROC pns 
BNESSTCNSFLAG THEN 
EO, 
IT PORMSTIELD(MP-Z) = BUILTSINSFUNC THEN 
CALL BUILTSINSPARM; 
END; 
EN FORMSFIELD(MP-2) = SUILTSINSTUNE TEEN 
CALL EUILTSINSPARM; 
ELSE DO; 
APTRADDR = PAPMNUMLOC(SP); 
BASE = APTRADDE; 
IF SER(BITEP®R(0),7) THEN 
DO; 
ШОО О РҮТЕРТЕ(@) AND 7FH) 9 FORMSTIELD(SP) TEE 
/* TEIS IS A VARIABLE PARAMETER */ 
CALL GENSALDRÜPARMT, PRTSADDR(SP)}; 
FLSE CALL FPFOR('/IP/); 
ENT: 
PLS? DO; /* TUIS IS A VALUT PARAMETER */ 
IF (RYTEPTER(2) = FORMSFIELD(SP)) 
O E EPIRA) = (FORMSFIELE(SP) AND 7E3)) TEEN 
DO; 


EA AAA 
ts SG o > 
ZEN THE SUPROUTINE’S * 
Dee Cel DEG ACTUAL =“ 


ex 
75 
d 
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CAEL GENSADDR(PARM, 
CALL PARMSPYTES (BYTS 
ENT 
Hier CALL SRPOR( IP }; 
END; 
PARMNUMLOC(SP+2) 
RTADSPARMS = TP 
END; 
END ASSIGNSPARMS: 


ste ste ste ale «les sie «te ade onto ato q! ate ats ate ale 


y RS SR CR DR ROSAS RIR AS ASAS ARES ASAS OS RAR Sew DGS o RR e Se ale / 
LIEEODEUPSIDENTIFITR - THIS PROCEDURE IS CALLED*/ 
TE (SYMASE” AND PRINTMAVF SET. IT BILL */ 

/* BETTEN "RUE IF THE IDENTIFIER CAN 32 FOUND */ 


ala alpa bg 


/* КЕСЕЛ A NO NC XUI Sie dese dene ae ENS ENE NEO NAS % 
MOOXUPSILENT: PROC BYTE PUB; 
BASFZEASETASLE(SYMEASZ); 
DOO FILE (BASE <> 3) AND (SRBTAL > S 
PE GEKSPRTSNAME (8) TEEN 
DO; 
LOOXKUPSADDn-? 
RETURN TRUE: 
YND; 
ELSE DO, 
E SETADLLIRPTRIZ); 
DIS E=ADDEPTES 
ENT; 
END; 
R*TURM FALSE; 
END LOOZUPSIDENT; 


sis ze slo 54%: se ss ste nte ste ate s‘e ste ste ste ste Jø ate aly ale abe ate sie x te sie ate ale ate ale ale ale ale > ae sie se este 
Cd LN IA IA IA 1% ` y“ бүз бү» 2) sa e * IN IA IA A Фу ema n ey өү» eq Zus 22 a" ut n° a AS s < > Zu AS y ` ey? IS AS gts Zus éi ' 


OO UPSPRINTNAMTSONLY - TEIS PROCEDURE SETS */ 
EB SYMHASH AND CALLS LOOKUPSIDENT TO */ 

/* TETEFRMINE I; TEE ENTRY IS IN TEE SYMECL */ 

/* TABLE. TU? ADI?T-SS OF THE PPINTNAME IS */ 
EUPASSED AS A PARAMETER. IF THF ENTRY IS */ 

MO POUND, TRUE IS RECURNEL. */ 


ale ni, este E ate ale « ale ale stes e Jo a alo sé 2 
ens ae > a `< "I° NS o aA nS 2 AW AA DS > AS n AS as as ea sic e^ ; SÉ PG A n A >x AR 2. A sa AS A: Zu NW >; 5 Së > / 


LOOXUPSPNAME: PROC(A) FYTE PUB; 
BO N ADDR: /* ALTER T DRINT-NAME >/ 
DOT RYTT.(N BASED A)(1) BYTE; 
HASECODE=0;5 
moer=1 TO \М(@); 
HASECODT=(EASECODE+N(B)) ANT EASEVAST; 
END; 
SYMPASS=FASHCOLE: 
PRINTNAMTE=A; 
RETURN p EN 
ENT TOCKUPSPNAME 


ule nto ate S `? < >< a: e. Sm ats ate ats ats ata ate wie ale aie wle ate nio ste ate ale ate a! wt z > e > te alg s' ` ate ate ate ale nto / 


^ > e; OR PA TA de AR A> ey. 23° e eye e A A> 23° A> ey eye gun ds ^ AS AS as > >< AN - A e eam AS ne < ^ АГЫ Big SÉ DU A A D „> AS ø` к Së / 


/ 
Meee CONSTANT IDENTIFIER -~ TEIS FOUTINE IS */ 
Mg 
/ 


P 


g 


ADOS PU, 
PTR(2)); 


= PARMNUMLAC(SP) + E; 
JES 


(2 


OPF(SCOPZENUNM)); 


AS] 


taj 


, 


"E 


* CALLTI WITH ER on TO TORT AN > / 
R DENTIFIER IN TFI “CONSTANT “ALUT” VA IE. un 


ate ats ale alo ste nto nte alo ste nte ate aleale ate a sale al “sor ale ate ate ale ale Jo ule nla yz ate a's o's ale ale ale als ate to e «ts 32 
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MEORESCONST: PROC PUF; 





BERN. FASET Mo EE METTE 

GEEL! Y RASED, p NAME)(1) 
BALI AS Mu cm WPEIUPGOSSSINDX)S NT 2)T1.); 
CONSTS INDX=CONSTSINDI+(N(9)+1); 
CONSTSPNSTASE(CONSTSPNSPTR)=SSYMEASE: 
CONSTSPNSSIZE(CONSTSPNSPTR)=N(2)+1; 
CONSTSPNSPTR=CONSTSPNSPTR+1; 

END STORESCONST; 

BND SYMPOL; 





E IMS 


+ 


SDAGEWIDTE(£2) TITLE( “SYNTE1 — PRODUCTION PROCEDURES“) 
myNTH1: TO; 


MAREE LIT LITERALLY “LITYRALLY 
Bon TIT DECLARE" 
EXT LIT “EXTERNAL” 
POS LIT : 
Ec LIT E 
BOC LIT "PROCEDURE", 
TRUE LIT ‘1’ 
IDR LIT ADDRESS”, 
FALSE LIT ^o , 
UST Zu LIT 'ADDEESS^', 
КООШ SINSEUNC LIT “2Dd 7; DCL 
HESIR 428°, /* SIZE OF FARSE STACKS */ 
Күр ETT 123 , /* SIZE OT PASE TABLE oy, 


=F 


ШО 6 BYTES USED FOR BCP VALUES */ 
MAXSNEST LIT “2 ,/* MAX LEVEL OF NESTS FCR TYPES */ 
AN PR DIN LIT 5 , /4 MAX ABBY DIMENSIONS */ 
KENO DIA v ./ USED TO DETERMINE FORM TYPE */ 


/* FORM ENTRIES */ 
REEDS N TRY LIT ‘0°, 
EN SENTRY LIT “1° 
TYPUSENTRY LIT “2, 
VAPSENTRY LIT “3 
DINOS ENTRY LIV “5°, 
MEGSDOLE LIT 7, 
/* NUMBFR TYPES */ 
ORISTYPE D D 
I! Ї 


” 5 


NTEGERSTYPE L o 4 
ОПАЗ5ТҮРЕ mus oc 
BISTENSSEXPCN LIT “š , 
ОЮ EDSEXPON LIT 4, 
EQOLFANSTYPE LIT '5^, 


# 


REAL STYPE LIT “2°, 

ESVPLEYSTYPE LIT 4”, 

SDE INES TYPE LIT '£'; SKJECT 

/* MANY CF TER FOLLOWING VARIAELSS CAN EE REPLACTI 
BY 

MAKING USE OF THE PARALLEL PARSE STACKS #/ DEL 

ERAYSTIMSLOWTAL(Z5) ADDR PXT, ARRYSIIMSEIVAL(25) ALIR EXT, 
BISPSTTC(2E) ADDR EXT, ARRYSOFTSTT ADDR EXT, 

BONSTSPTA FYTF EXT, 

GONGTSTYPE EYTT EXT. 

VECPTR BYTE EXT, 

MONO EITE EXT, 

MR Eis Arr? EXT, /#ATTR OF PTR TO TOP CF BLOS*/ 

MAX BASED START3DOS ADDR , 

WERE TOCT ADLR EXT, 


1.29 





Da BYE BET, 

GG AS GIYP. ETE BYT, 
APRYSCTY(MNAXSAPRYSDIM) ADD? EXT, 
TE SEASE (1E ADLR EXT, 
VAPSBAST1(17) ADDR EXT, 
WC OTY ADOR- EXT, 

K sn TSTYPE ADDR EXT, 
CONSTSINDX BYTE FXT, 
LOOKUPSADDR ADDR EXT, 

MONS TSVALUZ(IG) BYTE EXT, 
AOS TSPNASIASE(4) BYTE EXT, 
CONSTSPNSPTR BYTE EXT, 
BONSTSENSSIZE(AN EYTE EXT, 
INTESERSDIFSF ADDE FIT, 
SVERSVAL(2) ADDR EXT, 
QUERSTYEER(2z) BYTE TNT. 
SUBRSPTR BYTE FXT, 
SUBSTYPSADDR(1) ADDP EXT, 
SUPRSFORM BYTE EXT, 
MONVALU BYTE EXT, 
ARRYSBASE ADDR EXT, 
OSPI PYTE EXT, 
APRYSDIMSPIP BYTE EXT, 
Een Pp TQ BYTE TXT, 

Pees VAR STYP(MAXSNSST) EYTE EXT, 
ENOSNST BYTE, 


VARIANTSPAET(MAXSNEST) BYTE EXT, 
NG E ARAYSTIM(MAXSAAAYSDIVY) 2YTE EXT, 


ARAYSDIMEN(725) ADDR EXT, 
EONSTSNUMSTYPE(4) BYTE FIT, 
BE “PMSATRSPTR EITE EXT: 


NEL BCDNUMÍBCDSIZE) PYT* EAT, 
OOP ADR KT, 
SCOPESNUM EYTE EXT, 
Meee BYTE BYTE FAT, 
TEMPBYTE1 BYTE FXT, 
TEMPADDR ALLR EXT, 
TEMPADDP1 ADDR EXT; 


ECL 

/ COUNTERS */ 
CODESIZE ADDR EXT, /* COUNTS NUMBER CF LAPSLS */ 
ERPORCOUNT ADDR EXT, /* COUNTS NUMBERR CF ESPCRS */ 
EBDLOCSATIR ADDR EXT, /* COUNTS PRT ENTRIES */ 

/* FLAGS USED DURING CODE GEAEPATION */ 
MA LESSON. EYTE NIT. /= IN WRITE STATEMENT */ 
READSSTMT BYTE EXT, /% IN REAT STATEMENT */ 
IDEM O, 75 GETS NEw RECORD */ 
Mi POSE ET, /* DISPOSES OF EECORLD */ 
ALLOCATE EYTE EXT, /% PRT LOCATION ASSICNED */ 
VAEPARM BYTE кл yon ТОРМА TS TARTABLE TY PF 


ar ALS PITE EXI; /* READING ACTUAL PARAMETERS */ 


їс? 





N Te PEN DIFE IS IN SIVECL TAFL? 


/* GLOBAL VARIABLES USED BY TUE SCANNER */ 
More BYE EXT, /” TYP] OF TOKEN JUST SCANNED */ 
(К SC LOAN VARTAEL ES USER IN SYFEQL TARLE 
OPERATIONS */ 
BASF ADDR FXT, /* BASE LOCATION OF ENTRY */ 
HASETARLE(TASHTBLSIZE) ADDR EXT, /* HASITARLA ARRAY 


= 


ж / 

ОО ШО РКЫ r /* ETIEFES? LOCATLON OF SYMPO 
MARBLE */ 

SBTRL ALDR FXT, /= CURRENT TOP OF SYMPOL TABLE &/ 

TRADE ALTAR EXT, /# UTILITY VARIABLE 70O ACCESS 
SBTBL */ 

ADDRPTP BASED APTRADDR ADDR, dë CURRENT 2 B3YTFS 
POINTED AT */ 

Myers BASED APIPADDRI(1) BYTT, /* GUSRENT BYT-7v 
POINTED AT */ 

| PRINTNAME ALDR EXT, /* SET FRIOR TO LOOXNP OD ENTER 


r 


SYMUASE BYTE FIT, /* HASE VALUE OP AN IDENTIPIEE */ 

BK Eer ID ADDR ET, /* COLD PREVIOUS BASE 
MOCATICN */ 

ENPAMNUELOC &DDR EXT, /* STORES POINTER TO PARAM 


` 


BISTING * 
SETELSCOPE ADER EXT: /* PAST OF LAST ENTRY IN 
PREVIOUS RLOCX*/ 


MEU ILESINSTRL(12) BYTE EXT; 
JER DAR SDR VABTAPLES A изн зи AS 35 / 

BT PAPMNUM(PSTACKSIZF) BYTE EXT, /* MAIN 
КО у: PESO ED WINE 2 SUEROLTINE = 


Meer EL STACK(PSTACKSIZ®) ADDR EXT, 
LABELS */ 


P 


PARMNUMLOC(PSTACKSIZE) ADL? EXT, /* MAINT2INS TEE 
LOCATION IN SYMBOL TBL WEERT PARAMTTER INFO STORED */ 
ESSSSPTOC(PSTACKSIZE) ADDR EXT, /* STORES IYE SYMEOL 


MAELE ADDRESS OF TEE PERTINATE ENTRY */ 

FORMS FIELD(PSTACKSIZE) BYTE "XT, /* STORES TTE TORN 
FIELD OF SCANNED ILFNTIFIERS “/ 

ME -SmE GE (PSTAEKSTZEBITE XXT,/* HCLIS A VAPIAELE'S 
TYP? */ 

BENPEEENSSSSTQUOPSTACKSTZY)SYTE FXT, /* CONTAINS TPE 
TYPES OF THE EXPRESSION COMPONENTS */ 

BE SADDR(PSTACHST2?) ADDR EXT, /* STORFS Al 
MDENTIFIESS PRT LOCATION */ 

PARAMNUM EYTE EXT, 

CEEP PPI) RITE EXT; 


NEON TOS POR PASCAL-S”M MACHINE */ 





ERE NOP LIT “O° ,ENIP LIT “1º 
padi LIT 4” 
SR LIT “E” CONVE 
ETO! LIP 12° ATDE 
em LIT 16° ,MUL? 
BRUT Lit’ 22° .MCDX 
ШОО] LIT 24° GEO! 
TT 26” EOLR LIT 29” 
GFOE Fe TI 
H IT c ,LFOS_ LIT 37 , 
SBi 42 „FOSET LIT 41” 

BIT 43° 
Bi? LIT 44” NECB LIT 45” 
EG LIT 46 ,COM? LIT '47 
mie LIT 50”. FOR E S 
SOLITA", STD LIT 55 ‚5 
HAMON LIT” 58  STTUIF L T Ze 
ERUSETT 62 .5LC LIT 62 CN 
meee LIT 66” .PARM LIT 67 
at Ti? 79”, DEE LIT 771”, DT 
NT 74” .UDSI LIT 75 /.x 
LODR mice LODI L O° 
CD LIT 682” ,#ET3 LIT 63” 
DUMP LIT eo ES. 7 
G 97 ` APCTN LIT OÍ 
SQRT LIT/94^,0TD LIT 95" 
WENNC LITOS 


LB 


Buo” 
ri” 
pung?” 
Ba 
peo 6 
EN 


yo d 


E 


bei", 
Meee LIT 122°,PRED LIT “123° 
LIT 1057, 
E “106”, 


DSTT di 
a at a 


II vare 


BIT 129 

NT nt x 
BIT 113”, 
RDV 


BK, SP LIT 111 


MlA 3; 


OT ve RT 
SAULT HI 
aT ET ie” 
ER IT IE. 
Ren] LIT 22 ,NEQI BEG Ee. 


“,CRTB ee 


B 


ARI DIG aa” 
SEEN LIN Et 
SCR LIT'/-8^ 
uo 22 


О ерун OS” 


ETT 
E DM c AE EA 


A 


S ÆA á M 
SON AL [IT 1 O 
DINS PISIS 


oe wi i ae 


Jae DIT 2 
LFOR Jl i j , 
E Ji er, 
J Ip OS 
vr 


E ER 
Ber Led, 


CEPS IN UT 
pO S SOM VE 


de ws 9 


[peas 
E EE 
STT EIS o; 
60 ,CNAI LIT “1 ° 
,VKSET LIT 


BG LIT s2 
IT Fit se” 
SO. LIT 
21 Dale 
,PARMY LIT’€3°,PAEMX LIT 
eno LTE. 
SAO OP 27 
“DONT DIL ag” 
ies тү ES 
SIEL ID EO, 

OE OR EP 

EER MEE” 


OLN LIT SE” ; 
«CER LIT 


“DAD LIT OO 
1947 


RL EE EE 


T Rees? LIT7'199',PACE 


"MALI 112 CUNT 


SEJECT ERROR+PROC(ERRCODE) EXTERNAL; 


ML ERECODE 
END ERROR; 


ADDR; 


MOOKTPSONLY:PROC (A) BYTE EXTERN 
DECL A BYTE: 
END INOKUPSONLY; 


RR: PROC (SOURCE,TESTIN,L) EXT 
DCL (SOURC!S,DFSTIN) ADDR, 
eee Lats 
END MOVE; 
BETADDRPTR: PROC(OFFSET) EXTERNA 


fësch kaf BYTE; 
BID SETADIRPTR; 


BONS: PROC EXTURNAL: 


AL; 


SRNAL; 


L; 





UND MONS: 


BIMITS:PROC(COUNT) FXTFRNAL; 
BOL COUNT BYTE; 
END LIMITS; 


ENTRSCPLXSTYP: PROC (A) EXTEPNAL; 
REL A EYTE; 
END @NTRSCPLXSTYP; 


SETSPASTSPN:PROC(OFFSET) EXTERNAL; 
DCL OFFSET BYTE; 
FND STTSPASTSPN; 


LOOKUPSPNAME:PROC(A) BYTE EXTERNAL; 
men A ATLIR; 
END LOOKUPSPNAME 


GENERATE:PROC(OBJCOPE) PXTEPNAL; 
MEM OBICOLCE BYTE; 
TND GENERATE; 


GENSADDR:PROC(A,R) FXTTRNAL; 
Me: ETTF, E ADIR; 
END GENSADDRS 


ASSIGNSPARMS: PROC EXTERNAL; 
END ASSICNSPARMS; 


UNTERSVARSID:PROC (A,B,TDSENTRY) EXTERNAL; 
ROM (A,B,IDSENTAT) BYTE; 
ENT ENTERSVARSIL; 


ENTFRSLABEL:PROC EXTERNAL; 
END ENTEDSLAREL; 


BUURSPRMSTYP:PROC EXTERNAL; 
END ENTRSPRMSTYP; 


PRINTCHAR:PROC (CHAR) EXTERNAL; 
PCL CEAR BYTE; 
END PRINTCEAR; 


BREF:PROC EXTERNAL; 
ENT CRLF; 


PRINTSFEROR:PROC FATFRNAL; 
END PRINTSERROR; 


MES INTSFILE:PROC EXTERNAL; 
END WRITSINTSFILE; 


MOVESSETEL:PROC EXTERNAL; 
END MOVESSBTBL; 
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CLOSESINTSFIL:PROC FXTERNAL; 
END CLOSZSINTSTIL; 


PRINT:PROC(A) EXTERNAL; 
DCL A ADDR; 
END PRINT; 


MOOKUPSIDENT: PROC BYTE TXTERNAL; 
END LOOKUPSIDENT; 


SEJECT 


INITSSYNTE: PROC PUBLIC; 
NODESIZE = 3; 
PEWELTOP=MAX-2; 
WECPTR-0; 
BONSTSPTR=2; 
CONSTSINDX=0; 
CONSTSPNSPTR=P; 
SUBRSPTR=0; 
ARYSTMSADRSPTR=-1} 
ARRYSPTR--1; 
VARIANTSPART(J)=FALST5 
MORYSOTT(0)= 
ATLOCSADDR=0; 

END INITSSYNTR; 


a” CRE RENE HIRE AS RIR CASES ASAS aS AS > LAS KS SS AS AS AAA EIE 
= SUBRANGZSERROR - = "THIS. RE í. ES CALLED SS 
* IN THE EVENT OF AN IMPROPER VALUE IN A = 
* SUBRANGE, * 
AA AO e le e e ee ee ole BIG sla le sie sia sig alo Sta eyes Sue sese so ata nio 7 
SUBRSERROR: PROC; 
CALL ERROR( IS ); 
SUBRSTYPE(SUERSPTR)-INTEGERSTYPE; 
SUBRSVAL(SUBRSFTR)-€0€UE; 
PND SUBRSERROR; 
[737 E ee e Lai SE o casacas 
т ORDSEIOBSLOVSCEFCE So CROSS IS x 
* CALLED TO ENSURE THE SECOND SUBPANGE VALUE * 
ENSIS GREATER En E FIX Sinn 
DDD DEIA E AR FTIR HT RE HAT IS LE / 


ORDSHISLOWSCHK: PROC PUBLIC; 
IF SUPRSPTR=4« THEN RETURN; 
IF SUBRSTYPF(2)=SUBRSTYPE(1) TEEN 
IF SUBRSVAL(@) > SUBRSVAL(1) TEEN RETURN; 
BAER ERROR IS); 
END ORDSHISLOWSCEK; 
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ANG re CX - TEIS PROCF- Ж 
* DURE IS CALLED TO FNSURE THAT ROTE SUR- * 
* RANGE ELEMENTS ARE OF TSE SAME TYPE, ANI * 
THAT TEEIR VALUFS DO NOT EXCEED TAF MAI = 
ж INTEGER VALUE. * 
ee een se ne ne ne ne ne Sen Heu ie Ne en ciente eia sie cle sie ste sie sie ste steste vie cte Desire ENE 7 
BUBSINTSELSCHX: PROC; 
ISESURPSPT2-2 THEN n 
PE SUFRSTYPE(W) “> SUERSTYPE(1) TEEN 
DO; 
CALL SUBRSFRROP; 
RETURN; 
END; 
IF SUBESVAL(2) < 32766 AND SUBESVAL(1) »327€7 TE*N 
no 
NIEGA 
RETUR 
END: 
NEM UBESVAL(G) > 32767 AND SURRSVAL(1) Z 2276 
DO; 
CALL SUERSERKORS 
RETURN; 
END; 
IP SUBRSVAL(Z) < 32766 THEN /* BOTE POSITIVE */ 
DO; 
IF(SUBRSVAL(9)-(SURRSVAL(1)+1)) < 3276E THEN 
nes 
INTFGERSDIFF=STBRSVAL(D)-(SUBRIVAL(1))+1: 
BUT JA NG 
END; 
CALL SUBR$ERAGR; 
RETURN; 
END; 
FUSE /* BOTH NEGATIV 
IF ( - SUBPSVAL(1) 
nO; 
INTEGERSDIFF=( —- SURRSVAL(1))-( - SUBRSVAI(@))+1:; 
RETURN; 
END; 
CALL SUBRSTRROR; 
END SUBSINTSILSCEKS 


de se se ata e © pic E 2 RI lc e > ss sig st ste sk с ox sieves sk x de ze sie? ste Lig 212741 2 sbr 
un Sr ` e ` Zus Zus us dën 


RSDIFF = SUBRSTAL(2)+( -SUBRSVAL(1)}+1; 
N; 


TEEN 


(D 


a / 
(se SUBRIVAL(2) +1)) < 32768 TEEN 


m 


уко деж EME AE BES EE SIOE NERO OO NN NAN NG E RUOLI GG Y 
/* SURRANGESIDE ENTIPPREPROCFDURT. - TUIS ROUTINE se / 
/% IS CALLED TO DETERMINET THE OFFSET ( NUMBER */ 
ШОО ENTRIES IN A SURRANGE ) AND THE TYPE CT */ 

/* SUBRANCE, GIVEN THAT TEZ SUBRANGE TYPE IS */ 

/* à NAMFD IDENTIFIER. */ 
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pa B BEBE FS AS AS NENE NE ENEE NENE E EEE ENEE TER 
| BE eoe. PROC; 
| CONSTSPNSPTR=CONSTSPNSPTR-1; 
CONSTSINDX-SCCNSTSINDX-CONSTSPNSSIZE'/CCNSTS$PNSPT?); 
BEENUNTNAMPE.CONSTSVALUF(CONSTSINDX); 
SYMPASE= CONSTSPNSHASE(C ONSTSPNSPTR); 
IF NOT LOOXUPSITENT TEEN CALL SUERSTRROR; 
BOO DO; /* FOUND CONSTANT IDENTIFIER */ 
BRSB-TOOKUPSATDR; 
BE STTADLRPTR(4): /# POINTS TC FORM(EYTSPTR) */ 
SUBPSTORM-BYTEPTR(O0); 
IF SUBRSVORM <> 29E AND (SUPRSFORY AXD FORMNPMASY) <> 
CONSSENTRY 
MEET CALL SUBRSEREOR; 
ELSE DO; 
IF SUBRSFORM = @7E TE 
| DO; 
SUBRSTYPR(SUBRSPTP )=ORDSTYPF; 
CALL SUT APE RETR G6 )4 
SON Den рҮ трт р); /=# LENGTI OF P.NAME 7 
CALL SETADDRPTR(7+SUBRSFORM); 
SUERSVAL(SUBRSPTS )=DCUELE(BYTFPUTR(U))?3 
CALL SXTADDRFTE('7-SUBRS FORM); 
SURSTYFSATDR(SUERSPTR J=ADDPPTT; 
CALL ORDSEISLOWSCES; 
PND; 
MISE DO; 
[O WEILE ((SIR(SUBRSFORM,3) ANT FE)=@}; 
IT SAR(STBESFORM ‚5 )=NTC TEEN 
IV SIGNYALU=POS THEN SIGNVAL Ta; 
| SR CIGNUALU=POS 
| CAT LEO (NEE ELE 
SIE aa STEPS (OR); 
p SETADIRPTA(7+SUBRSFORM); 


B man — ee 


N 


ta] 


IP NOT LOOLUPSONELY(APTPATDS TES 
DO; 
CALL SUBRSERPOR; 
SUBRSPTR=SUBRSPTR +1; 
RETURNS 
END; 
uu DO: 
BASF=LNOKUPSADDR; 
GAL SKTALPAETRI4); 
SUBRSTORM=BYTEPTE (FE); 
END; 
END; 
IP (SIR(SUBRSFORM,Z)AND ZE) = 2 THEN 
DO; 
CALL SUBRRSERROCR; 
SU3RSPTR=SU3RS$PTR+1; 
PETURN; 
END; 
/* HERE WE HAVF EITEER AN INTTCEFP CR CER */ 
IF (SHR(SURaRSFORM,8) AND 3H) = 1 TEEN 
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TO; /% INTEGER 
BALL Sta 
SUBBSFOBMSEYTEPOS(A); 
CALL SETALIRPTR(T+STERSTORM)S 
le S 6 TAN 
SUZRSUAL(SUERSPIR)- - ADDOPTR; 
ELSE SUERSVAL(SUZR$PTRO-5IDz?T?; 


SUSRSTYPE( SUBRS PTR H=INTRGEESTY 2S} 


CALL SUBSINTSHLSCYK; 
ENI; 
IST 
LOS 
CALL SETADIRPTR(S); 
Re ap (0); 
CALL SETADUDURPT R(7-SUERÉFO2M ); 
aaa AP RH CA TEEN 
no; 
CALL SUBES ERRORS 
SURRSPTR-SUERSPTR#15 
RETURN; 
END; 
CALL SZTADLAPTR(E+SUERSTORM); 


I" 3YTEPTR(O) (41 OR BYTTPTR(E) 


CALL SUBRRSERROD; 

BISA DO: 
SUBRSVAL(SUBRSPTP)= 
SUBRSTYPE(SUBPSPTA) 
Brenn OSCAR 

TND; 

UND; 
Dae 


° 
y 


DOLO Bs 
-COHAES'TY2T; 
y 


O Ux] 


EN 

END; 

SURRSFTR= SUERSP TP+]; 
"ND SNBSIDSPROC 5 


en E an: Së se ae ss E sies e ato a we ate ale ale ale ate sic OE z< 245 zu sz GC sa DE ale sic 


p SUBPATO Käre? - TEIS PROCZDURF TS USED qc 


sas ale alse abe ale aie 
ea ry S AS AS 
ale 


ye DET TERMINE 2. n P di A _IN EE 


f RUM CA he = ie SÉ SN x DEAR NIE 
SUSRSCASF: РРОС (А); 
DER A PYTE; 
GENEE DOE 
DOS E EXPRESSSSTXL(A); 
/* CASE CONST NUMBER */ 
DO; CONSTSPTR=CONSTSPTR-1; 
I7 CONSTSNUMSTYPF(CONSTSPTR )=RTALSTYPE 
er 
CALL SUERSEREOR; 
CONSTSINDX=CONSTSINDX-RCDSIZ5; 


FND; 
ELSE 
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o alo ala alo no ato sto nto nto n'e nto alo nla uto 
` 
SN AT IA A IA AIN NS AS 





MOVE. CONSTSVALUE(CONSTSINIX), к ШЕ VY 


ШОО PEER TYPE */ 
CONSTSINDX=CONSTSINDXY-2; 
CALL 


EE. SUERSPIR)a TEC 
ERTL SURSINT SULÉCUR; 
ENT; 
Mee oP TPH=SURESPTR+1; /* NEXT TO FILL */ 
END; 
ESCASEZ IDENT CONSTANT =/ 
ENT SUSSIDSPROC; 
CESE SICNED IDENT CONSTANT */ 
JO; 
SIGNVALU=N=G;> 
EU SUSSIDSPPOC; 
SN. 
SER CONSTANT STRING */ 
DO; 
CONSTSPNSPTR=CONSTSPNSPTR-1; 


CONSTSINDA=CONSTSINDX-CONSTSPNSSIZE 
PRINTNAMW=,CONSTSVALUS(CONSTSINTX); 
MemGONGESPNScCIZE(CONSTSPNSPIP} <> 2 


CALL SUBRSERRCRS 
FLST 
DO; 
FASE=PRINTNAME; 
GAT SRTADDAPTR(L): 
IF BYTEPTP(Z) < 413 OR BYTEPTR(Z) 
CALI- SUERSERROR: 
ELSE 
Bo; 


AGE RUE, (TIE, )= 


SUBESTYPE(SUBPSPTP )=CUARSTYPE; 
CALL ee CC RK 
үт. 
END; 
WERSPTR=SUERSPTP+1; 
END; 
КЕ C7 CASE FIPRESSSSTX(MP) */ 
END SUPRSCASE; 


pow AA CAIR ASAS SIR DI 3 DO AO A Nes QUNM MS Me coy 
/* a - TEIS PRCCIDUS no 
/ USED TO ENTER A SUBRANGE TYPE ENTPY INT Qu 
TO 5SYVBOL TABLE. THIS SYMBOL TABLE FNTRY */ 
j. EAS NA a Nie ASSOCIATED wI TH DTA 28 / 
‚ > AS / 


bo „ie xt >< o do ulo ale ato we ale ate x = < sie mo ulo “le ale ale o's ate ale n'e ndo nio als ale ale nio nto ulo o alo Mo 
= ` e "PAAR ` > 
pa eS a 4 "i > e^ +) aT AS S 6S AS "s zs > < = sie ss 2,8 È >. 2° H TAT TON AA AT SEAT SY SAT A IIA 


PNTDASUBANTRT: PROC PUBLIC; 
WIPESTOCT=S3T PL; 
oes LIMITS(12); 
VTCPTR=V"CPTE-1;3 
CALL SUBPSCASE(SP); 





ADDRPTR= 


3 


A 


+J 


tT] 


eek ES a | 

ШОО STBERSCLSE(NE); 

BANO SN TROCPLXSTYP(S2L\SUBSRSTYP®(6) .6)0R8 

Br, SE STADDEPTR (5): 

ШОО UERSTYPE (O )ZINTECERSTYP? TEFEN 
ADDPPTRS.BUILTSINSTBL] 

IF SNBRSTYPE(0)CYARSTY?E THEN 


SEU DDPSTNSTE 
ÉS 
PATE SETA DDRPT 

ADDRPT?- то. 
CALL SITADDRETR 
ADDPPTRZSUBRSVA 
OORS ETALCRFTR 


US 
EE s. SE 


OP 


); 


ETN ADIRPIR=S 


IF SUBPSTYPT(O)- his TYP T sN. Z RANGE 
Pee T9 FIN TEGER ip HM CAM GANE 
ELSE 
ADDRPTP=((SUBRSVAL(G)-SUBRSVAL(1)'+1); 
SUBPSPTR=2; 
EU -S ET DBL#655 
END T"NTPSSUBSNTEY; 
/ AS A e o nee nenne een 
O. ER 2 OR — “TE IS PROCEDURE Dos La 
Ü EVENT E E a ee ee ae 
YPFSERROR: P206; 
ALLOCATE=FALS5; 
CALL EPROP( IT): 
ED TYPESERROR; 
RR ele Den Dee ME MO RE AU AE DES RES MA He HEDE 
LOCATE OFFSET — THIS PROCEDURE IS CALLED 


BIIERMINZ 
STORAGE 
* TEE PARAMETER 
P ANT eee RM A 
LLOSOFFSET: Bir A) 
Beier ADLER: 

BA ALLGSFOEM, 
a , 


TIE 
“A 


25a 
AS AS 


33 3 3333 


NUMBER Or 
ARE OS DEN TYPE 


GE uec 


Tp m S 


E REQUIRET FOR 


GIVEN Id 


CALL SETADPRETR(4) 
ALLCSFORM= BYTEPTR 
RE ic STORM <> TY 


DO; 

CALL TYPISERROR; 
ALLCSOTY=1; 
moo BAS ICTY P= 


126 


10^ 


x / 


uto f 
ыы 


ale 
à 


7 


; 
^. TER VARIABLE 'S ы уу; 
ARE p mos RI PERA. Rud 
PUBLIC: ya iii > / 
Darm, 
© /% POINTS TO FORM OF TYPE" 
(2) AND POEMMASZ; 
DESENTRY ANT ALLCSFOPM < TYP 


T 





RETURN; 


ENT; 
NOE TL ((SAR(BYTEPTR(C),3)ANTD FORMMASXI)=7 ANT 
E ne BU SG 


F 
CALL _STTSPASTSPA(?) 
BASF=ADDRP IR; A L 
TYPESLOCT = BASE 
ALLCSFORM=BYTIPTR(2) ANT EORYMYASK, 

MALE so "OPM  TYPESENTRY AND ALLESTOPM <> TYP 


Ee 
EE 


bad 
t 
es 
t 

11 


TOEN 
meee CALL TYPSSERROR; 
ALLCSOTY=1; 
ALOCSASICTYP-2; RETUPN; 
UND; 
END, 
EM DW EXIISTS EITHER A BASIC TYPE OR A TYPE DECLAPATICKE 


Mem ULCSFORM = TYPESENTRY THEN 
ENE BASIC TYPE */ 
DO CAS® (SHR(BYTEPTE(2),3) AND FORMNASE); 
/* INTEGER */ 
no; 
ALLCSCTY=2; 
BOLE SICTYFHINTECZXSTYPT: 
END; 
A RRCD REAL Se 
m; 
11656 1Y=3; 
ALOCBASICTYP=UNSIGNSIXPON; 


ENT; 
КОКС СОА АСТЕ» =/ 
LO; 
ALLCSCTY=1; 
p AS IE TYPSGAAFS DY PEN, 
END; 
q EGOLSAN */ 
DO; 


ALLCSQUI=1; 
EGG EE EN CECR? 


Æ E +, 
DO: 
FELCSOTY =.2; 
ee SASICTYP = STRINGSTYPE; 
ENT; 
His / OF CASE */ 
ALLOCATE=TRUE; 
ad WAN, 
ME FPP’ EXISTS A TYPF DECLARATION */ 
TEMPPYTF1I,ALLC$SFORM=(SE2(BYTYPIR(2),Z3)AND FORMMFASXE!; 
TE ALLCSFORV=Ø JB RES 
Des SCALAP */ 
ALLOCATE=TRUE; 
ALLCSOTY-DOUZLE(ALLCSFORM-*1); 
EMOOSASIOTYP-SORDSTYPE; RETUFEX; 
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ENT; 
SR, HAVE EJÍBER A SCALAR,SUBRANEZ,POCLERAR, OR 
BYPE */ 
B= SER(EYTEPTA(E£),3) AND FORMMASK; 
Ie (BYTEPTR(C) AND FORMMASZ) = TIPESENTRY THON 
DO; 
IF E = @ OR F = 1 TEEN 
DO; 
CALL ERPOF('IA"); 
E=2; 
RETURN DOUBLE(B); 
END; 


ENDS 
me ALLCSFORY=1 TEEN 
TO; /* SUBRANIE */ 
Momo et R= TUS 5 
POO RASICTY P= CONPLIYSUYPE 
BESE a (BY T4PTR(F),E)5 
MS 1 TEEN ALLCSOTY=DOURLF(ALLCSFOEM= 
RR AL LCSCTY=TOUELE (ALLCSFORM); RETUPN; 
END; 


IF ALLCSFORM=2 TIFN 

BG /” ARZAY F 
ALLOCATE=TRUE; 
INROCCASICTYP=COMPLEXSTYPE; 
GALL SETATDRPTR(R)! 
ATLCSOTY=ADDPPTR; RETURN; 


( BYTEPTR(Z) AND FORMMASZ ) = TYPFSENTRY; 


ШОО SSTSPASTSPN(7)3 
BASRE=ADDRPTE; CALL SETADDRPTR (42); 
DA — BASF; 


1); 


END; 
B=2; 
Pome @DEFR CASES ALLOCATE AN ATTRESS FIELI */ 
ALLCSQTY-TOUSLE(3); 
ALOCEAS ICTYP=COMPLEXSTY P23 
ALLOCATE=TRUE 

END ALLCSOF RSET} 

Æ NS Dt Dit 28 DIE OK K AS AS AS BS SS TS BS AS ONS FAS AS AS BIS BS BS FAS BS BS STS E AAA D 

Ze ALSNDXSOFFS ET - THIS PROE DUR: 15 GEED / 

fe TO DETERMINE TEE NUMBER OF BYTES BEOUIRED * 

Pe BY AN ARRAY TC STORE TEE ARRAY' S COMPONENTS */ 

PT TPESLOCT IS SET PRIOR TO CALLING THIS */ 

/* ROUTINZ. AN ADLRESS VARIABLE CONTAINING TEE */ 

/* BYTE COUNT IS RETURNED. */ 

p A A se Desses VEE PA E / 

ALENDISOFFSIR PROC ADDR PUP ELC; 
Nana APDP,3 3Y TE: 
Ben -TYPESLOCT, 

CALL SETADDRPTR(4); 

DOBLE (SER(BYTEPTR(E),3) AND FORMMASZ) = 7 AND 


Cr 





Es? THEN /* CHARACTER SUPRANGE */ 
Do; 

Bo= 26; 
PECSVARSTYP(RECSNST)ZCHARBSTYPE; 
PYTURN DOUBLE(R); 

pim 


| 
| 
| P* ECOLEAN */ 
RECSVARSTYP(RUCSNST)=BOCLEANSTYPE3 
B = 2; RETURN TOURLE(B); 
ENT; 
/* COMPLEX TYPE */ 
BENE SyTrPTR(2) ANP FORMMAS") <> TYPESDCLY OP 
aa ^ 7 ) ANI ( 2 <> 1 ))) TEEN 
DO; 
LL ERROR( IA); 
[i2 E DCUBLE(E); 
TND; 
IF Rad THEN 
fone, SCALAR TYPE */ 
RECSTARSTYP(RTCSNST)=C LYSTIR 
CALL SETSPASTSPN(7); 
RETURN DOUELE(EYTEPTR(Ø) + 1); 
END; 


/* SIBRANCE TYPE */ 
Pere ARSTIP(RECSIST)=CADTS TYPE; 
ПОО SS TADDRPTE(11)3 
RSTURN ADDRPT5; 

END ALSNDXSOFFSET; 


ale Ve alo > ale ste Ss sie ne ate ales! Exe este ale ale Se ta Jo 
PIN NY NA IAS IINE p> MAP Fs He @,* EZE ex Os or aye é S 3,8 x» 


= ALLOCATESVARIABLTS 5 TEIS PROCEDURE DS “ 
NEL TO ASSIGN PET LOCATIONS FOR TAGE ^ 
* E LHE E asil on | 


en 3x as sng < > te abe was abe ala ate ate ale abe ate ais nla alo alo ala alo alo ale ale 
> ie 2 PU IA IA IA IA IO IA IIA O IA IA IIA IA Sy 


leno: PROC PUR TIG 
DARE TE] = 2; 
SL CSOFFSET(TYPESLCCT); 
BART = VARSPTD; 
DO VARSPTR = Z TO TEMPE 
PASE=VARSBASE(VARSPTR 
Qu T, SETADDRPTE(4); 
IF SES(2RYTEPTR(2),7) TREN 
DO; 
BYTEPTR(G) = (BYTFPTR(@)) OR (SEL(ALCCRAS 
VARSENTRY); 
ADTPADIR = VARSBASEI(VARSPTR)S 
ADDFPTP = ALLOCSADDR; 
eroine = AILOGSMDDR + 2; 


ons ia Le At >< 34 =< 
eya ex 


‚+ 
- 
ka 


END: 

poor DO; 
HARSPIROZ)SSCE(AELOGBASIOTYP,3) OR VARSENTR 
Ir spin = 2) АГ (ТУМРГ7ТЕ1 = 2; 





Deu COP + E; 
bi 
T T ERSTEN 


pir 3 io] 
tay rq rm] 
Hoy 


RA ГОСТ Gi 
APTRADDR + BYTEPTR(G 
ADDPPTR + 5; 
ADIRPTA; 


APTRATIR 
ABAD PA DL a 
APTRADIR 
HEL EE O PY 
END, */ 
APTRADDO=VARSBASZI(VARSPTE); 
ATTRPTR=ALLOCSATIR; 
BLOG SADIREALLOCSADDRHALLCSOTY 
END; 
APTRATIR=APTRATDR+2; 
D PIFZTYPESLCCT; 
END; 
IEPEPPYTE1 = Ø; 
END ALLOCSVASS; 


t 
E 


"n wo hm 
+ 


ve See Së ec stes NE lo stes de nio nto ulo nto ste des È we I alo stoele se se We ulo ate ula ss ste sie ate st As Ze = nig Bie sis 
vs di ss ; ms cas sons aus dx six TA UR TE dk dun ox és dt A UA 2 * 


is CAST SPT 2 PTE EUR POOEDUSE TS CALL ED L 
= E ST ^ n ЖО DERIT P Try 
x EA A IA AAA AAA / 
КО зулу. PROC(A) PUBLIC; 
KO Aa FYT SE, 
DO CAST A; 
PECAS: © ORL VARIABLE */ 
TO; 
APP = H: 
END SETSP PASTSPN(O ); 
ОООО Ыр) = ADURPTR:I /* ALTER OF PAPENT */ 
END: 
ШОО 1 INTECES VARIABLE */ 
BIGGER = AOE; 
ИЩ 2 CHAR VARIABLE */ 
ieee n = JRE; 
/* CASE 3 REAL VARIAELE */ 
EIN = OAE; 
/* CASE 4 COMPLEX VARIABLE */ 
Bo ARRAY, SUBRANGE, USER IEFINS 
DEMPADDE = BASE; /* STORT VARIABLE 
BALL SETSPASTSPN(S); 
FAST = ATIHMPTR; 
CALL SETADDRPTR(4); 
NS ZE TEEN /# ARDAY #/ 


AA 
E SBTL LOCATION */ 


MIDES / 





| А PN(7); 
BASY = ADDRPTP; 
КАШ SELADDA?TR(4): 
ENEE EEN EE ERRORL’NS O); 
/* TEIS IS A STT TYPE */ 
CALL SETADDRPTR (5); 
BASE oe SE EE ALDRPTRS /* ATDR OF PARENT */ 
END; 
ELSE 1F EYTEPTR(O) = STE THEN 
ГО; /*®* POINTER */ 
CALL SETADDRPTR(S); 
BASFSLOC(SP) = ADDRPTR; /* ADDR OF PAPFNT */ 
DER 
En TI PBYTFE1 - (GH: 
DO CASE TEMPBYTE1; 
PRES 
PTRPTE 092; 
PTRPTR ORE; 
PTRPTR CAR; 
PTRP TR ACE) 
TRPTR GEN; 
PTRPTR CCT, 
END: /* CASE */ 
EN Pb” STORE ORIGINAL BASE LCCATION 


:53. 8 H H WI 


O 


ENI; 
Z5" 5 S0OLVAN VARIABLE */ 
PTRPTR = JFE; 
EO / OF VARIAELE CASE */ 
FND CASESPTRPTR; 


ula alo mba nla ulama alo ula ulo ala wo ulo ulo nto alo nto ele «lo «de wie te ate ale ate ste ate ale ate 
Zus e ye eya e k an pt TR ы ы dh Zus 


err TARLESTYPE — TEIS PROCEDUPE IS CALLzD */ 
BEEN PIS VARIAELE TYPE, VARIABLE SIGN,ANT */ 
“EE EES OF TEE BASIC TYP? CIVEM, "H* ALLIREZSS*/ 
ZS VARIABLE ^LOOKUPSADDR IS SET PRIOR TO TER */ 
PE CALL. */ 
JARRE NERE ARE des de de de d SIS TK STS BS EEN EE NENE ie ENE e ee de See / 
MUS VARSTYPT: PROC PUBLIC; 
EENENUOPSNSEOC: PPOC(A,B,C); 
КООШ ОКА, b, C) BYTE; 

CALL SETSPASTSPN(A); 

"E Lett E EE 

PRYADER(SP) = APTRADER; 
DES PEPADDE(SP) = ADDRPTE; 
BACK (SP) = (2 OR EOL(C, 7)); 
HUL SETSTYPSNSLCC: 

BASF = LOOKUPSADIR; 


/ 


vat g 
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Boe EA DORPIE US) 
IR HE ES = RYTEPTE(d); 
ME SE ( PORMSPIELE(GP) AND “OBMMAST) 


CONSTANT ENTRY %*/ 
LO: 
SAGNSVALU = POS; 


REN NSSEUSERUCRYTEP?OSCA2).2) AND 2225; 
PI OT EAT XIWD os CONSTANT IT IS */ 
EE die (SEE (BYTEPRR (EO) a) AND 2245) = €; 
IF (SHER(RYTEPTR(2),5) AND 21H) = 918 TEEN 
IF SICNSVALU TEZN STENS YALU = NTE; 
BISA CIENSTALI 5 POS: 


CALL SETADDRPTR(6); 
IF NOT LOCOXUPSP'AMZÍAPTRATDDR) TUEN 
DO; 
CALL SPROP( IC); 
RETURN? 
END; 
CALL SETADDEPTR(4); 
F (BYTEPTR(2) AND FORVMASK® <> CONSSINTPY TIEN 
DO; 
Via Ic”); 
a TANG 
END: 
AND; 
/* INTECER OR POCLFAN CONSTANT */ 
MASAS ООМО КОСУ ТО /5 BGOTFAN */ 
s 55 sns I NSIQOQC (39.28 PDS ; 
Meow /* TIRAGER */ 
SE YSN LOS (Z, EZ, SIGN SVALU); 
/* REAL CONSTANT #/ 
CALL SETSTYPSNSLOC(?7,6H.SICNSVYALU); 
/* STRING CONSTANT 7 
PS ST ES NSLOC(?.7E.2); 
ENI: /* OF CASE */ 
TND; 
/ TYPE ENTRY */ 
/* VARIABLE ENTRY */ 
Do; 
fee Sen (FORMSWISLE(SP),7) TEEN VARPASM = IRJF; 





PTRPTR = B ous P),Z) AND FORYMASZ); 
PENSE SLOC(SP) = PASES /* SIMPOL TAPRLE LOCATION OF 
BESCHT ARIS */ 
ELL CASEPTRPTF(PTIPTR); 
КООП SEESTYPSNSLOC (7, PTRPÜR,. 2): 
ШИГ; 
/* PPOCTDURE ENTRY */ 
VS NO SUCE THING EXISTS IN PASCAL */ 
r PUNCTION ENTRY */ 
Dos 
IF FORM$FIELD(SP) 5 PUILISINSFUNC TEFN /* "UILT IN 
FUNCTION */ 





Be; 
NULL SETS PAST 
St ROSA) 
IF EYTPPTR( 
Dor 
CALL CASEPT 
TYPESSTACK í 
IND; 
APTPATDP = APTRADDR + 1; 
PARMNUM(SP) = EYTEPTR(E); 
PARMNUNLOC(SP) = APTRADDR + 1; 
FND; 
Base DO; 
CALL SETSPASTSPA(16)5 
SALE Sn BI POE PEP GN BAND FORMMASI); 
FALL ee ie a SPP mM 
BALL SETS PASTSPN(7); 
PARMNUM(SP) ern); 
CALL SETSPASTSPN(£); 
PRE UTOG (SE) = ADDPPTR; 
CAIL SEISPASTSPN(I4); 
LABELSTACK(SP) = ADLRPTRS 
END: 
ШООК ОО ОКК УУ VE TEEN PEADPARMS = TPUT; 
КО о Susu THIS WILL BR A FUNCTICN ASSICNYFNT 
STATEMENT */ 
PAPMNUMLOC(SP+2) = PARMNUMLOC(SP); 
Bil: 
DE FILE ENTRY */ 


EE SEGE: 


= ¿L $ 


PTR (RYTEPTR(2)); 
\ 


y 

/% SCALAR ENTRY */ 

Dos 
BT SaTSPYPSNSTO6 7.113,93); 
APTRADDR = APTRALLR + 1; 
PASESLOC(SP) 2 ADDR PRE; 

END 

RI /% OF CASF */ 
TND SETSVARSTVPE; 


/ de d ste Ste zx ex ae x ste de ses GEN “de ste ate ste ale sla I sa ale ale 


ss ta Je ste xe ate ale atlanta Sa ale ale ates “este  / 
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Æ hs: = TEIS PROCEDURE 
IN TERNEDIATE COTE TO LOAD Z 
~ Sa K ZXECUT N R Qu 


id Ws 
SE) о 


Æ NM Eee ned AO HERE DO EE e Seir NE xe ape s E ae "oi LG d "E x / 
DADSVAR TE PROC(ET) pu LIG; 
КООШ BYGE, / PT REPRISINTS A STACK POINTER */ 
RSS TAC: PROC 7 
POCA DITE: 
DE CASE SSTACKIPT) AMD SEE); 
A = OPDSTYPES 
A = OPDSTYPT; 





BCOLPA N STYPE; 
T NE AS LY PP; 
UNSICNSEXPONS 
S RE CS TYPE; 
SOOLFANÍTYPE; 
INTECERSTYPS; 
UNSICNSEXPON; 
А CHARSTYPT; 
END: /* OF CAS? */ 
EE ES STE EP) mo Re 
UND EXPSSTACK; 
mom: S20C(A, B, C» 
B B GC) BITE: 
AT EA ENGER TOM VAL UI se 7 
PT) AND PFE) <> FUNCSENTRY TEFN 


PET FP > "> np Poo 


l SH pH E 


po; 
PENES A 
CALL CENTRATE(B); 
I? SER(TYPESSTAC z(pm), C) EPEN 7 ACCNSSING ARRAY 


CAT Gch Bena (Site 
EST CAL CENTRATE(C); 
IV A = LDIB TEEN УУ LOAD DES” OF BCD NUMPTE */ 
NOOR? TO (SGDNUM(G)/2); 
APTRADDR = APTRATDR - 2; 
OE RAE Br Tera) 
ELI CON ARA TO CEIGE ARE r): 





| DID: 
| IF SIR(FORMSFIZLD(PT),7) Tur vm VAPIABL” 
| PARAMETER */ 
CALL oem PESTER (LCDI ); 
END} 
BOOM eGALL GONSADPR (ORO LAESLSTACZ (MP) )> 
LL SRP OS TACK ; 
| END LOAD; 
| ADS DMT TEEN RETURN: /* COING TO READ THIS VALUE #/ 
IF READPARMS TIEN 
DO; /* RTADING A SURBOUTINE S PARAMSTEFS */ 
IF (TOXEN <> 12) ANI (TOXEN <> E) THEN READPARYS = 
FALST; 
x /* THIS MEANS THIS PARAMETER 1S AN EXPRESSION TEAT 
MUST RE 
FYALUA TED. AFTER BYALUATION, READPARMS WILL EE SET 
EO TRUE, */ 
| ELSE DO; 
(ОТ ASSIENSPARMS; 
| (СОТ GXPSSTACK; 
x RETURN: 
END; 
END; 
LE LOADINC A FUNCTION VALUE, GN TO THE CASE STATEMENT 





x / 
IF (SORMSFIELD(MP) AND 7FH) <> TUNCSFNTRY THIN 


Ea 
21 
cb 
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| 
) 
| 


ARRATS 


RE E —= s 


OR 


BONSTANT 


de 
> 


PI); 


PS STAGE) > gag) ANBO(TYPFSSTACX PT) C 1111) 


O 


Meri PeSSTACK (PT) AND 404) = 428) "MEN /* IN CASE O? 
s / 


RA LITA), Vo COINC TO LOAD Á PRT ALUR */ 


ELS* APTPADDR - PRTADDR(PTO); /* GCINS TC LOAD A 


END; 


ale 
e. 


DONCAST (TYPESSTACKIPT) AND 077); /*2*/ /* CPT VAFIAPLE 


CALL LOAL(TOW(PRTATIR(PT)),FICE(PRTATPR/PTD),LOI NG 


m y ORD CONSTANT */ 


INTEGER 


pegs] fx 
PERK) 1% 
[DA / ES 
END; 


Eo er» (SAE) e ROOIFAN CONSTANT */ 
HIPER DENTI, BYTE PER (0, NOD) /*S*/ TO; /* 


CONSTANT */ 


ET TOI LBIT .EYTAPTR(C).FICA(AIDPPTD) 
a ren Siro PT) SEE TEEN CALL GONE e: 
END; /*6*/ DO; /* ECD CONSTANT >/ 
GALIT LOAT (ETTF ,EYTEPTR(@) ,EICE(APIRPD3 1): 
AT UPASSTAGHUPT) - BEN TEEN CALL GENTPATP(NEOSB); 
FND? /*7*/ TO; /* STRING CONSTANT */ 
Coben ery (LEDS TO): 
TEMPBYTE = BITEPTR(@); /* LEWGTY OF STRIN 
DO PTRPTR = 23 TO TEMPATTE; 
CALL GENFZATE(APTRATI3 - P732T3; 
END; 
FENDI /*#8%/ /* ROOLSAN VARIASLE */ 
EAT LOAD(CONC PRIADIR (PT) ),NICE/ PRTADIR(PI/), LOL); 
INTEFTP VARIABLE */ 
MEA (LOW(PRTADDR(?27)) HICE (PRTADDP/PT)?,LODI); 
REAL VARIATIE */ 
GT LOAD(TOW( PPTADDI (PT) ),EIGT(PATADIR(PT:).LODB]S 
CHARACTER VARIABLE */ 
EE CAL CECW (| PRTAETDR (PT) ) ,EFICE(PRTAIER'/ PT)),LOIJS 
Hi OE CASE */ 


on СТ); 
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M 
ee 
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END LOADSVARI; 
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ү ASSICNEVARI = TEIS PROCEDURE CPNERATES Bew? 
Meee TAT’ COLE TO LOAD TEE LEFT SII" OF */ 
AN ASSIGNMENT STATEMENT ON TUE EXECUTION */ 
RESO Wo STORES A R AT pO u E 


/* 
E 
Ka 


te + ale 
22225 


ale sls J ento. i 
q» ee a ç Zus ei ` ' ' 
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< > exo sto a le a'e nig nio a's ale 
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ASSIGMSVARI: Ee STORES? ui DENIS 

POS PYTES /* LS IS TUE LEFT SIDE OF ASSMT STMT */ 
ENERO! 5. STORESTYPZ) EYTE: /* STORESZYP* INDICATES 
WONTOTR 
TO DELETE OR LFAV® TEE CURRTNT VALUE AT THE TOP OF TET 


STACK 


we J 
~~ 


SU 


IR (TYPFSSTACX(LS) AND 403) = 42E TEEN 


20; 
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PYPESSTACK (LS) ANI CEERI; 
, 


SPRIRSAPERLLS.) ); 
LEON S/F CHICK FOR VAR PARAMETER 


“J = 


ALL CENERATECLODI); 
DO CASE EXPRESSSSTX(SP); 
/* CASE 2 - ORL TYPE #/ 
MEE: STAGE LS) €» 113) AND (TYPESSTACE(LS' «» 127) 


CALL FRROR( AT”); 
| BÐ A = 2; 
| /* CASE 1 = IN 


T?PGYP TYPE */ 
NUEUTP*SSTACK(LS) - 2€ | 


/* CAST 2 — CEABSTYPE */ 
WNT YPESSTACZ(LIS) = 035 TETN 
2; 
DES CALL EBROR( AT"); 
/° CASE 2 - REAL TYPE */ 
TF TYPESSTACK(LS) = JAH TEEN 
Pe O: 
mea CALL TARCP 
CASE 4 - ST 
A = 2; 
/* CAST ^ - B^CL 
IP TYPESSTACI(IS) 
ME 2: 
BISE CALL ERROR( AT”); 
HI, OF CASE */ 
ME DON TSTYPE TEEN A 2 A + 3; 
DO CASE As 
1 
STIT: 
ST); 
STOR; 
SI, 
5105 
END; /* OF CASE */ 
END CSNERATT(P); 
END ASSICNSTVARI; 


JSH TEEN 
bd: 
EST DO; 
IF TYPESSTACE(LS) = 2AH THEN 
| Be 
x CALL GENERATE(CNAI); 
MELIUS 
END; 
SE CALL FPROR( AT O); 
END; 


= 


AE Mol ENE 
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— — ' AA mi’ ’ S?T cry 


RE TAIS PROCEDURE CITCKS TEP TOP TWO */ 
/* VARIA2LES ON THE EXECUTION STACK */ 
BHR PROPER TYPE. * 
y ASS > H 

BYTE PUBLIC; 

INE UNIPRERSSSSTK(SP) —- EXPRESSSSTX(MP)) ANT 

MmePRSSSSSTZ(SP) <> AE 

THEN RETYRN TRUE; 
IP EXPRESSSSTK(ST) = 14 TEEN 


DO; 
IF EXPRESSSSIX (MP) = Ap oz 
DO; 
SD ISP NERATE(CONWI)s /* CONYERT INT TC POL +, 
EYPPTSSSSTK(SP) =3E; 
BETUSN TRUE; 
END; 
ELST RETURN FALSE; 
END: 
ME (PRYSSSSTE (SP) =3H TEEN 
DO; 
IP EXTRESSESTX(MP) = 1° TEEN 
DO; 
ET CENTRATECNPI)3 /?4 CONVERT SECOND INT TO 3CD */ 
FIPRESSSSTX(MP) = SU; 
RETURN TRUE; 
END; 
ZLSE RETURN FALSE; 
FND; 
IF FXPRESSSSIX(SP) = 2H TAEN 
LOS 
MA PSTSSSSTE(MP) <> 83 TEEN 
RETURN FALS?; 
Bier DO; 
PF BAS*STLOC(SP)=BASHSLOC(MP) THEN 
RETU2N TRUE; 
END; 
END; 
RETURN FALSF; 
END CEKS®XPRSTYPE; 
DIE RE NERE NE NE NE ME AREA SI NONE NERE DIE RENEE NI NERI IRENE RANIA 


B estacas = TRIS Re ОЕШ КРИ ОГА Ee e 
EE "C VALUES STORED AT ONE POINTER LOCATION“ 
a AT M S O Lr TOCA TO > 
EE e ge de de de sie 3º GE GE ak 
MOPYSSTACFS: PROC(A, 3) PUBLIC; 

meek, з) түтү; 

MENSSTACK(A) = TYPESSTACK(B) 

PRTSADDR(A) = PRTSADDE(3); 

BRERASSSSTE(A) = BXPPESSSSIK(R), 

FORMSPIFLD(A) = FORMSFIELD(P); 

EB ELOC(A) = BASESLOC[(B); 
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END COPYSSTACKS: 


er ei 


` 
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ads ate 


PROC; 


o nto nto ato 


ale ale 


ala ala ato als alo alo ~t stes als aa le dee de slote so doele ste Scie ` ` 
“IS AS AA AS Te I 7° 213 e, en e si sé Së TY AT AS N Se pe o 21° aS 2,9 dam ESOS es ng SS S SS vs gz d dës S AT 


TNTPATESS3UILTSIN - THIS PROCEDU PE 
PUILT-IN 


lanzo 


tø 


n'e ale ale ale 
PAP S tS nHS 


APTRATDR PARMNUMLOC(MP) - 25 
ОО y FPT? (ZZ) 2 1E) CR (BYTEPTR(OE; = ATIE) TEEN 
CALL COPYSSTACKS(MP, SP-1); 
Roe a XPRaESSSSTK(MP) = EYTEPTR(C); 
/ GENERATE TAF NUMONIC CODY “OP TET BUILT IN FUNCTION 
x< / 
EM OLA = APTRADD? = 1; 
DIESE PYTEPTR(C); 
Bo CENSRATE(ABS ); 
CALL GENERATE(SOR); 
CALL GFNERATE(SIN); 
PE GENERATE(COS); 
BTL CINERATE ARCITN); 
MI CUE PATE(CEXP); 
CALL GENFRATE(IN); 
MED CENSRATE(ÍSORT); 
MT GENEPATE(ODD); 
BATT GENERATE (EOLN) 3 
BHD, CENT DATE DYP); 
CALL CENTRATE(TRINC); 
CALL GENFPATE (FOUND); 
BUD CENBRATE(ORT) 5 
mene CONS PATE(CER)$ 
DEE CENERATE(SUCC)>5 
CALL CENERATE(PRED); 
mies 7 OP CASE */ 
mr CENS2UILTSIN;3 
le ie iena ale ale ale MEE SE DENE NE NIE SEHE HI RAR RATE EIS AE OE AS si 


DENN sol SiNG - THIS PROCADURE WRITES 
2 / 


COTE 


vIe alo abo ale ate ate a 
PEA IA A IA IR IA 4748 


/* 
ag A STR INC LO TEE ТШШН ЕГ. 


fo ates 


ate « 
= =. > > sa as es 4 A oe SÉ sa = =< Rs 


PROC(NUMP) PUPLIC; 
TCL NUME BYTE} 
CALL GTNERATF(WZ7S); 
BE CONFRATE(NUMB); 
WRITESSTRINC; 


nto ate ula ala ulo nta ula nla alo ula ulo ale 
PEPE KAP PT, ren re A 


¿slo ate 


ENT 


ato We Me sie sig sie ste 0 de nte sto ulo ento do n'e alaala ste gle a 
PA IA IIA IA A ду» Së >< IS 22 S.S cst > SAT ALS < x<; i< 


TEIS PROCTDURE WILL 


Venez 
ST TESVARIAPLE - 


Les 


o! 
3 RENE IS AK AK RENE NERE RI 


> 
ato 
o> 


y 
exo / WRITESSTPINC: 


/ 





sena Do TER CONSOLE VIA sy 


TOGE BE EEN / Ta R I di H S A 2 : 
C(NUMB) PUBLIC: 
DCL NUM3 BYT*; /* NIMBED OT SPITF PARAMS */ 
IF NOT READPARNS THEN 
JO OCP EXPRESSSSTK(MP); 
/* ORD TYPE */ 
CALL GFNEPATT(WRT); 
/* INTECER TYPE */ 
CALL GPNFRATT(WPTI); 
/* CFAR TYPT */ 
CALL GEMERATE(WRTI); 
J REAL TYPE */ 
CALL GENESATF(WPTE); 
/* STRING TYPzZz */ 
DO; 
BTT URI TESSTRING( NUND): 
TURN; 
END; 
/* BOOLEAN TYPE */ 
GIP KN KE KS Cant 
IND? /* CAST FXPPESSSSTZ 
CALL CTNERATF(NUMP); 
END WPITESVAR; 


° 
9 
“er 


(MP) #/ 


ale als ate ate ale ale ate ale aly alo sg ða ale ate ale ats ate ato ale ole ates ate Së Së sé sie oes 2s als e mba alo alo ale ale ale ato ato vis Jo ato ale de 
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/* RFADSVARIABLE — THIS PROCZ “DURE CENERATES */ 
AE INTESMELIATE CODF TO READ A VARIAPLE*/ 
Ié og TEE „CONSOLE. * / 
т AGRO 2 EEN AN NENE IN NN ERE NE DIE SIE DIL DIRE NIE 7 RTA D VAR: 
PROC PUPLIC: 
MENG ESSTACK(SP) < DOE) OB (TYPuSSTACK(SP) > CEE) TEEN 
EE SEROR( “IR? )3 
BDO CASE (TYPESSTACE(SP) - 9)5 Lo; /*CASF Il 
ENUSCCGUERTSTRRPVI): CALL GENSATPTR(ÍLITA.PRTAILR(SFE! 
EENTPATE(STDI): END:/*CASE INTEGEP*/ DO:/*^ASE BCD 
MENERATE(RDVB); CALL GENSADOR(LITA .PRTADDRÍSP));5 C 


ep — 
er 


BENERATE(STIFE): END:/*CASE ECD*/ D0O;/*CASZ BYTE*/ 
Mn RE CO DV); CALL GFNSADDR(LIT4 ,PRTADDR(SP)): CALL 
BENERATE(STD): END;/*CASE BYTZ*/ 
END: /* CASE (TYPESSTACE'SP) - 9) */ 
END PFADSVARS 
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BEISPOnCEDURT: 7 PROC 





piss — SASELOC(MP); 
Peele sce TSPASTSPN( 7}; 
ieee iA) < 22 TEEN /* FILE HANDLIHG PROCEDUR? */ 
Di CASE (BYTEPTR(2) - 17); 
BED CENFRATE/(PET ): 
CALL GENERATE (GET); 
CALL GENFRATE(RESET); 
BALL CENERATE(REV2T; 
CALL GTNERATE(PAGE); 
CALL GENFRATF(NES )3 
WNT: /*® CF CAST (EYTEPTR(G) - 17) */ 
ELS? DO CASE (BYTEPTP(@) — 22); /* VAPTABLE NUMBFR OF 


PARAMETERS */ 
NEWSTMT = FALSE: 
BRSPOSTSSTV” = "ALS"; 


ERADSSTMT = FALSE; 
MESS TNT = FALSE: 
MESS TNT z PALST: 
LO; 


WRITESSTMT = FALSE; 
CALL GENEPATE (DUMP); 
END; 
eee OF CASE (BYTEPTR(O) - 22) */ 
FND RSISPROCEDURE; 
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Smee CURPENT SCCPE: AND THE SCOP? POINTER IS 


E DECRIMFNTED EN EN 
PAT ABG is pie ole ale die sia ale ste ale ue Nee Se sie He ie ya EIS IS ET ENE Be EE x 248. ./ 
IPFATSLINKS: PROC; 

MATTE. SETELSCOPY > SCOPE(SCOPESNUM — 115 

КЕ 7 SETELSCCPES 

CALL SETADDRPTR(4); 

ME (PYTEPTR(2) AND FORMMASX) = 7F) TEEN 

DO; 

CALL SETADDRPTR(2); 


BEER, SASE ADLP RTR 


ENT: 

ELSE DO; 
CATE SETADDPPTR(5); 
MENSE = EYTEPTR(O); 
CALL SETADDPPTRI(C Lu 
HASPTABLE(SYMUASE) = ADDRPTR; 
HO WISSETADLSPTRÍ2); 
RE (ГОРУ, BAST = ADDRPTES 

aller 

END; 
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SCOPFSRRANCT: PROC PUBLIC; 

IF SCOPESNUM > 1 TEEN 

YO. 
APTDATDDS = PAPAMNUMLUC + 73 
5 GENSATER(ERL,.(ADIRPT2-41?); 
O GENSADDA(LBL,ADDPPTR); 

END} 

ENT SCOPE SBRANCE; 
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ESEPRSTYP: PROC(A) PUBLIC; 
ERA BYTE; 
PES LOCT=S 27 
IF LOOKUPSONL 

CALL FPROR( 
DELL ENTERSTAR 
Ta NOT PRTS UN TP 
DO; 

IU LIMITS(C); 

APTRADDB=S3TBL; 

Eu »72(2)z-A; 

APTRATDR=APTRATD2+ 

ADIPPTESPARENTSTYP 

SETPL=SBTR BLES) 
END: 

FND USTRSTYP; 
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CIEN E oiii m POE uc SIS = 
* DETERMINE THE NUMEER GYTPS ALLOCATED IN * 
(К (т SCR A FINCTION ER x 


ate alo O ene dic dico er se ar eyes 2 ale ate alo ale sie se ses nig ala ala ve sie alo ata a 2 slote st 2% 


MENSFONSEURRSSIZE: PPCOC ALLE! CALL SETSPASTSPN(1E); IF 
ayrrpre(? ) = 99H TEEN 
RETURN 2295 ELSE 
IF PYTEPTRÍO) - iFH TBEN 
RETURN Gap: 
ELSE 
RETURN (013; 
TND GENSTCONSEDPSSIZE; 


+ nia alo Ki owe ala nba sie sie se sie sie ale ate ale ate ala ole ale ale ats ale an e. 
Gh 24% Zx O IIA AA IIA ST OAR OROS “N SN 3° 24° Oye aja 


ne 


fo sie a! isat «ta sure lo ste sie ela la 4 
` ` “ee at e; L 


a exe „ie a? <= e ale ale ate y a ada NG ala sie sie ale wie sie wie y We vio ato ale sie alo ndo vio à to mauto onen Po nla ala ulo ata ate alen te alo a ip ula nto a lo e «e б» м te мб» м!» a ta we 
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ERR TESIZF —- THIS PROCEDURE RETURNS TSE % = NUMBER O7 
EE ШО О О О О ОСАТЕ IN TEE PRT FOR A PRO- * = GELURZ OR FUNCATON 
BA TION. THIS DATA IS #4 * REQUIRED TO ALLO" PARSMETTA 
BUG INTO THAT PATTY * BY A SAVP NPEPATOE, * 


ala alo ula nla ala ula ulo ula 


s'e Se ala nto ala nla alo wo ste ata mta ala nla ala nto nla alo de atento de ala nta <l, wla alaala nla laste ala ate alo alo «tr la ato nto nto ala ala a? 
as ZS ds os dés es 2,8 SC ds os ZS SU IA RINA IA IIA us dis ës eu > 2,9 MS SEIN SS SAT AS AN AN AN ON VN ON OE ON TT бүз > ar E. Gyr gh NAN “N TAN AT 


ENS NSS TTESTZE: PROC ADDE; CALL SFTADERPT2(4); Th 
MIS DTR(9) = 24H TEEN 


MEE 





QETUPN 229; FLSE 
EETUSN CENSFCNSETPSSI7ZE; 
END PPOSTCNSBYTESIZE] 


Je En es cine ða ste ate ale ale F > se sx ale ate = Sa ale г< 2i. ates < E sé ato te ale ale ales ate ale ale ale ale als ale ate slo ale abe ale 
e a. ert * an Ыы > ` y + e po? ` 4 a ` “` TT TES Hye Hy Gyr FIT FIT rt ^1 ' y 4 ' y 


* SETSAVESBLOCK - TEIS PROCEDURT IS 
# CALLED UPON DETERMINATION OF A SUBROUTINE * 
* BLOCK. IT INCRIMENTS TRE PRT BY ONE LOUA- * 


* TION To PEPMIT TUF INSFPTION OF TEF 6 = E 
E ANT TEIS Dumas FOR CAL BE À 
EE REN E ENE Sys Bye NENA E NENA NENE sic le ape de sic ale ale de ie de ge de de ie e de dee die ce 


ST TSAVESBLOGT: PROC PUBLIO; 
BETZ COUNTER ADDR, 
COUNT 3YTE; 
PYTESCOUNTER=2; 
EXUNUSSETPLSII = SBTRL; 
IP SCOPTSNUM > 1 TIEN 
20; 
FASE = PARMNUNLOC(SP - 5); 
bee STTSPASTSPN( 12); 
ADIPPTR - ALLOCSADDR; /* SBP */ 
BBRUCGSADDR = AILOCSAITR + 2; 
BTL SZTSPASTSEN(7); 
TFMPADDB = RYTTPTR(2) AND 2FFH; 
WIP GENSAIIR(LDII,T3MPADD2); 
Mer ADER(TDII,PROSECNSBYTISIZ®); 
BYTFSCHUNTER= COUNTS PARAS BYTES (COUNT): 
ENDS CENSALLRIÍLPII,EYCTCESCOUNTEPR); 
REL SwTSPASTSPM(12); 
RREO GENSADPR(IITA,ALDRPTR); 
EST SETSPAST £5N(12); 
END GYNSADDR(LITA,ADDPPTR): 
CALL GENEPATZ(SAV?); 
END: 
FND SETSAVFS3LOCK; 


se se 2s en. sie >= ang =. > e 


ale «le ae sie sies ae abe ale alte A o nto sta alo vio nto abe ate ale ate a ne 
NN ANG A t ar > ee OS sie = Une < pag x d us d nS ASA IA IA IU IIA 


F ATADSANDSBLOOK. - UPON PTC OS NITION OF A 

EB POUTINE S FEADING AND RLOCY, THIS * 
ЕКОО ОЕТ ДУ IS CATLEL TC "ENTRA TR REODIRET 
CODY FOR UNSAVINC TEZ SUBROUTINTÍS 
PARAMETFRS IN ER EVENT u CAO 


ale inge sto e ata ato sl He ES ale ste coe т< o e 
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PADSNSBLT : PROC PUBLIC: 
BASE = PARMNUMLOC(MP); 
BU SETSPAST5SPN(12):5 
BESTE GENSADDE(LITA ,ADDEPTR): 
CALL E PA (12); 
BET CENSADIR(LITA,ATLRPT2): 
PTT GTNTRATE(UNSP); 
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RATF( 
| II SETSPASTS 
| CALL GENSADDR( 

TUMPADDE = 023; 


«ei 


Jina 


ESOO ES 
i 


td 


BEL GONERATF(STII); 
END BEALSNS$RBLE; 


sie s'e sie de a” o nto alo nto «o slo «to sie «lo» «lo ate ate ale ate ole ale ate ate sig nto sesde wie sie 
AN OO SS SS da 24% 2 eS ES AS IS eS AS IS AS IUS eno IS 249 219 A AAA AL 9% 


ar TORWARTSSTRROUTINF = E ET TVENT 
* FORWARD DETINED SUBROUTINE, THF AL 
* SPACES IN THE PPT FOR TYR POUTINE 


alo n'e alo qo ale wie sla ale ale ale ate n'e ste n'e also sie v'è 
ART AT AN ARTEN FAR AN бүз өм 


* ASSOCIATED PARAMETERS ART DT-ALLOCATEL АМТ * 


bt, BE RPALLOCATTD AT TAT POINT O 
* SIRROUTINE”S DEFINITION. * 


se ste ste ste sta ale ale e ale ale ulo Jo ula alo alo wo alo ala Wo 3x alo se ato vis elo Jo de ula ulo alo ste nte ale ale ate ale 
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MIDSSUBRTN: P9OC PUBLIC; 
BSOPSSNUM - SCOPESNUM - 1; 
ME AA — PARAMNUMLCC + Gs 
ALLOCSADDS ADVE PES 

FND FWDSSURRTN; 


>: ste ve sig alo wa ula ale ale ale ale ale sie ale ale als ale ate we KN. wie n'è ale ale ate alone ate sla ate ate als ote ale we s'e ala 
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* GOTSPARAMETERS - TEIS PROCETURE IS 
* ONCF ALL A SUBROUTINE"S PARAMETERS 
* REEN RECOGNIZED AND ENTERED IN TF? 
* TAPLE, TES NUMEER OF PARAMETERS AN 
LESS GOCIATED TYPE ARE TE 

* SYMPOL TABLE. * 


BOTSPAPAMS: PROC PUBLIC: 
APTRADDR = PARAMNUMLOC; 
SYTEPTR(C) 2 PAEAMNUM; 
CALL ENTR$PRNSTYP; 

END GOTSPARAMS; 


e «o «lo «Io ulo «Jo 


Ye ate ate ale ale ale ale ale ate elsa alo sie atento a! ye ala ulo wie mano alo 
>> PND IIA IN IIA IIA IA IO IA IA IO IIA IA MEN OH SPI 
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ale 
AND ITS * 
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ate ule ale ate vio q Yo ale ate ale als stoute 
“SERSANT AT one a o 
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> e, o ayu PS PA ^ v 
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tonto nie sto nto wiz Je We We 
“ne ^ DK ` 


„ie $i»: ale ale ats ae we we 
“SA vAN AS HT LIN 


% SETSOPS$TYPY - TEIS PROCEDURE IS CALLET TO * 


GAD TEE TYPE OF OPERATOR USED IN 
£ PRESSION. * 
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mersOPSTYPF: PROC(A) PUBLIC; 
Der А тутт; 
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ae 
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/ AER CONAN > EE NE NENE EA A NG 
CALL3ASPROCELURE = 
MMG ENFEPATE INTFRMETIAT 
INVOXING A SUBROUTINE. THE NUMBER NF * 
CES о. pia . CEROXET .. > 


yes sie tg =! to ate ute abe awe ais ale sie ale sie 
SÉ n° A Se e 36 A e x A a a > > 2º A AS Sao x > SA A. A Zus bd wd Vd ka? 1° 249 24% Zç @)s 2(% #|*% HS Ia MS 


$STACK(MP)- 
SP TIPO: 


BIS PROC? TUBE. IS 
COLD UPEN = 


CALLÉASPDOC: P200(A) PUBLIC; 
Meee EYTS; /* TRUS OR FALSE */ 
RFADPAPRMS - FALS?; 


LEN /* 
DO; 


me SEM GEE) <> PARVNUM(SP-1) TEZN 
CALL ERROR( PN’); 


END; 
IF SER(FORMSFIELD(MP),Z) TOEN 
DO; 


BEEPSORMSFIELLÍMP) = GDE THEN 
CALL CFNSBUILTSIN; 
ELSF CALL PSISPDOCEDUDE; 


END: 
ESSE DO: 


IF FORMSFIELD(MP) = FUNCSENTRY TEEN 
КОПТ TOAESVARI(MP); 

HELS? DO; 
BUT GENSADDP(PRO,LABELSTACK (MP )); 
ren GaN RATE (DEL): 

FND; 


END; 
END CALLSASPROC; 


Wa ' mmie 
[BR ae nas Ne Aee De SHE RS TIS AS DL TS ME ASIA ACASAS NA EROK X< 2⁄2 > 


ato 
eya 
„ie 
Ld hd 
£ 
ve 


MO CT Tons TY Pa = TEIS PROCEDURE: ET 


PUR TUE FUNCTION K BAR p 


e ale 
SÉ sie X > =. p > x AS A Aë 


DIE NE RIS NE NT NE NE NE DIRE NE NE AE NE RENE NEONATA NERE HERE 


КОО слу. PROC PUBLIC} 


ET 3 


Ld 
ø 


RER ke BEE 


TERS 
THE TYPE OF TEE FUNCTION INTO THE SYMBOL 
TABLE AND ALLOCATES A POSITION IN TER PPT * 


als 
e 


BASEZPARMNUMLOC/MP); 
CALL STTSPASTSPN(16)5 


CINE pO (2 )2SHL(ALOCBASICTYP,3) 09 VARSENTRY: 


EE SETSPASTSPN(10)5 
ALLOCSADDR = ADDPPTR; 


APRO CSADDR = ALLOCSADER + ALLCSOTY; 


END COTSFUNCSTYPE; 
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ta ata sien! 
IS AS SSIS AS 3 3K IE RAK BIE AS TSS EAE ASE REDS REK 3,8 3 AAA 


: ENDEPROCHAN - THIS. DROCEDAR IS CALLED UPON 
RFYCOCNITION OF THE END CF A PROGRAM. IT * 
POINTS OUT THE FRROR COUNT, CLOSES TEE * 
MITARMEEIATE FILE, WRITES TEE SYMBOL TAELE * 
FILE, AND INFORMS THE PROGRAMMER OF PROGRAM” 
COMPILATION. * 
BE AS HSS AE BE AS IE BK FE AE AYE NE NRE DHS DE IIE AE TE SS de ANNE RENE NENA SIS e de de sie sie sie si scale ge de de de des 
ENDSPROGRAM: PROC PUBLIC; 

CALL PRINTSERROR; 

CALL PRINTCHAR(’ ^); 

ОГ CRLY 

IF NOT (FRRORCOUNT > д) THEN 

mog 

BOTE CTNSADDR(ALL,ALLOCSADDR): 
CALL GENERATE(ENDP) 5 

END; , 

EE WRIT SINTSFILF3 

CALL MOVESSRTBL; 

mele CLOSESINTSFIL; 

WMO E TNT(.(° COMPILATION COMPLETE.$ ^)); 

ALL MONG; 
END ENDSPROCRAM; 


* pe 


3o ox 


D" 
a 


EE е еле се е деде NG IR NG GT NONG Se ALAS RER EEE TE ARTEN 
E ARRAYEDECLARE ES OE DS RINES = 
RR STORES SYMBOLTABLE INFO ON ARRAYS. * 
RISA PROCEDURE FAILS TO MAKE USE OF THE * 
a m LEL Es 3 T 
BE BS BE BS AE AE SE NEE IR EHRT E AE E E NE AS NS TES SES EK TNS YK de NS OS HS IS ENE LELIE SEE IS x 
ARAYSDECLAPE: PROC F PLIC; 
DCL I BYTE; 
IF ARPYSPTE = -1 THEN ARRYSPTR=0; 
CALL ENTRSCPLXSTYP(17H); 


ARYSDMSADRSPTIR=ARYSDMSADRSPTR-NEMSARRISTIM(ARRYSPTR), 


ARRYSBASF=BASE; 

CALL LIMITS((NUMSARPYSDIM(ARRYSPTR)*4)+2); 

CALL SETALDRPTF(5); /*NUMBER OF DIMENSIONS*/ 

BYTTPTR(O)=NUMSARRYSDIM(ARFYSPTR): 

CALL SFTADDRPTR(E); /*ADDRFSS OF COMPONENT TYPF*/ 

MERRSPTR=TYPESLOCT: 

SEU XLLCSOFFSET(TYPFSLOCT); 

RASE=ARRYSBASF; 

ERC SETADERPTR (A); /“TOTAL STORACE REQUIREL*/ 

BUBRPTRZARRYSCTY(ARRYSPTR)*^LLCSOTY; 

CALL SFTADDRPTR(12); /*COMPONENT TYPE*/ 

BYTEPTR (2) =ALOCBASICTTP; 

/ >= MEE OE LL ee R K nie iodio io Ro e ele ie he NE e de de e de 
DEF FOLLOWING COD? CALCULATTS TET OFFSET AND DIS- 
PLACEMENT VECTORS FOR KACE ARSAY DTCLAPATION AS 
BOLLOWS: 


сб 








DEREN = = DIMENSIONS IN TEIS ARFAY, 
D(1) = DISPLACEMENT VECTOR FOR ITH ARRAY 
BOT) 5 ULE) BOLND OE ITE ARRAY 
L(I) = LOWER BOUND OF ITY ARRAY 
V = CFFSET FOR TEIS ARRAY 
FOR I = N DOWNTO 1 
Moi = NN TI) = 1 FISE 
DA AA espere) 
ESO GET DER) 
EE na le ee le lee e EE EE Ee / 


MERYSOFESET = er p" INIT FOR LL“ ORIGIN: :/ 
SUBRSFORM = NUMSARRYSDIM(ARRYSPTR); 
BENEDSVEC(SUBRSFORM) = 13 
MPIRYSOFFSET = 
ARRYSOFFSET - 
(ARRYSDIMSLOWVAL(ARYSDMSADRSPTR + SUPRSTORM) 
DISP$VEC(SUBR$FORM)): 
SURRSFORM = SUBRSTCE RM - 15 
DO WEILE SUBRSTORM > 3; 
DISPSVEC(SUERSFORM) = 
(ASRYSDIFMSHIVAL(ARYSDMSADZSPT7R + SUBRSTORY -1) 
ARRY SDIMSLOWVAL(ARYS DMSADRÍPTR + SUBEST 


% 


+1) 
DISPSVEC(SUBRSFORM +1); 
BSPYSOWFFSET = 
ARRYSOFFSET - 
(ARRYSDIMSLOWVAL(ARYSDMSADRSPTR + SUERSFCH™) 
DES ESVEGISUBASFOAM) ); 
SEERSEORY = STERSTORM — 1; 
КОО; /“DO WwSILE*/ 
ER SETADIRPTP(11)5 /#OFFSET4 
ADERPTR = ARRYSOFESET * ALLC : 
CALL SETADLRPTR(13):S /#ADDREISS CF DIMENSION 1%/ 
DO I=1 TO NUMSARRYSDIM(ARRYSPTR); 
ADDRPT3 -» ARRYSLIMEN(ARYSDMSADRSPTR * I): 
APTRADDR = APTRADDR + 23} /*“DISP VECTCF TOR TE 
DIMEN*/ 
MIRO TO = DISPSVEC(I) # ALICSOTY, 
APTRADDR = APTRADD? + 25 /FSET-TP FOR NTXT DIM*/ 
END; 
meee SLOCT=BASE; 
SBT3L=SBTBL+((NUMSARHYSDIM(AREYSPTR)%4)+3); 
AREYSPTR=ARRYSPTR-15 
END ARAYSDECLARE; 
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P FINDSRE popa TELS PROCEDURE I3T22MINS 
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FIND2RZLOP: PROC PUBLIC; 


EUM 

EO CASE (TYPES STACZ(MPP1 = 
EGLI; 
NEQI? 
CIOT; 
GEO1; 
LSSI; 
era]; 

IF fee SESS > 5 

ELSE A = XIN) 

( 

S 


e ea 
Il 
D 


SP) <> ORDSTIPE TEEN CALL r 


END; /% CASE 
DO CASE FXPFE 
/* ORD TYPE 
IF (A = LSSI) CR (A = CRTI) 
IE A <> XIN THEN A = A 
/* INTEGER TYPE */ 
; /* NO OFFSET REQUIRED */ 
IE GEAR TYPE */ 
/* NN OFFSET REQUIRTD */ 
pee түру *, 


SU i “у 
(5Р); 


fU 

? 
IESUS 
S sse 
x Z 

) 


H BALL EROR DR 


=> 


үн 
EL 


w 


* STRING TYPE ZA 
= 4 13; 

HE PCOLEAN TYPE */ 

3 /* NO OYFSET REGUIRED */ 
ШОШ" GF CASE EXPRESSSSTX(SP) */ 
GAT GEN PBATE(A): 

EXPPESSSSTY (MP) = BOOLEANSTIPE; 
END FINTSRELOP; 


END SYNTE1S 


Lee 
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SE S C 


EE EWIP^P(8Q0) TITLZ('SYNTE2 - PRODUCTION CASP STATEMENTS’) 
BYNTHS: DO; 


me LARS LIT LITERALLY ^L 
DCL LIT “DECLARE 
POS LIT Ø , 
NEC LIT [| 
BROC LIT “PROCEDUR m 
BU: LIT 71” 
ADDR LIT “ADDRESS” 
HEESE LIT ^2”, 
FOREVER LIT ‘WHILE TRUE’, 
ED TESIZ® LIT “ADDRESS”, 
BLT SINSPROC LIT 264” 
GONSSSTRSTYPE LIT “3° 
GONSISNIMSTYPE LIT ‘e’ 
BONSSIDENTSTYPT LIT "1, 
BEN SSIDENTSTYPR LIT 2'5 ICL 
MINS Zoo Т CGO S MAY IDPNTIFIRER SIZE — 1 =) 
Weresizh LIT 1232 ,/* SIZF OF YVARC STACE*/ 
ENG KS TER LIT 48, /* SIZ? OF PARSE STACKE */ 
PENA SIZE LIT 128 ,/* SIZE OF BASETABLE */ 
AMS iZ LIT (87. /* BYTES USET FOR BCD VALUES */ 
ШОО LIT 3 , /* MAXLEVEL OF NESTS TOR TYPES */ 
ERI STD LIT fa. MAX NESTIVG LEVEL TOR ARFAYS 


ITE PALLE oe OE AA OER EES RE 


Pe 2 


Pe FI TIM LIT 5 /* MAX ERT DIMENSIONS */ 


/* PORM ENTRIES */ 
LAELSENTRY LIT g 
CONSSENTRY LIT ‘1 
TYPPSFNTRY DIT. 
WES ENTRY LIT ‘3°, 
EE OG SS ENTRY LIT ‘4°, 

FUNCSENTRY LIT “5º 
NULES ENTRY LIT "e 
DYPESPCLE LIT °?” 


7 
# 
# 


` 


? 
, 


/* NUMBER TYPES */ 
DRDS TYPE LiT “o”, 
EERS PYPE LIT “1”, 
UNSIGNSEXPON LIT ‘3°, 


SURINGSTYPZ LIT “4”, 
BOOLFANSTYPE LIT ^5”; 


# 


[# MANT OF TUE FOLLOWING VARIABLES CAN SE REPLACED 3Y MAKING 
USE OF TER PARALLEL PARSE STACKS */ 

DCL NUMSARRYSTLMTS(25) ADDR, ARRYSDIMSLCWVAL(25) ADDR 

PURLIC, ARRYSDIMSHIVAL(25) ADDR PUPLIC, TEMP$SPRASF ADDP, 

EXPECT? RD COXPSCIRI EYTE, DISPSYEC(22) ADIR PUELIC, 


J 





BERYSOFFSTT ADDR PUBLIC, 
s O NIPA BYTE EXT, 
EC TR ENTE EXT, 
REEN UM BYTE EXT, 
SONSTSPTA BYTE EXT, 
STARTRDOS AITIP,/*AIDR OF PTR TO TC? OF EICS*/ 
HEES ADDR ADDR TXT. 
o LOCT ADDR EXT, 
IE SPTR FYTE EXT. 
VARSPARMSPTR BYTF EXT, 
EEOGPASICTYP RYTT EXT, 
ARRYSOTY (MAXSARAYSTIM) ADDR EXT, 
WR SSASE(10) ADDR EXT, 
BECSOTY AIDP EXT, 
MAE SORLSNUM BYTE EXT, 
PARENTSTYPE ADDR EXT, 
CONSTSINDX EYTE EXT, 
LOOKUPSAIDR ADDR EXT, 
SONSTSPNSPTP BYTE EXT, 
ARRYSPTR BYTE EXT, 
ARRYSDIMSPTR PYTE EXT, 
A RPTR 3YTE FXT, 
INESEDIMAXSNEST) BYTE EXT, 
VARSCASSTP(MAXSNEST) ADDR EXT, 
VARSCASSVAL(MAZSNEST) ADDR TXT, 
EO NGI BYTE EXT, 
RECORDSPTR IYTE EXT, 
ER ADDR (19) ADDR EXT, 
PECSPARSADP(MAXSNEST) ADDR FXT, 
VABIANTSPAHT(MAXSNEST) BYTE EXT, 
YXDSOFSTEBST(MAXSENEST) ADDR TXT, 
BE SONSTSBSELMAXSNEST) ADDR EXT, 
CURSOFST(MAXSNEST) ADDR EXT, 
NUMSARRYSDIM(MAXSAPHYSDIM) RYTE EXT, 
ARRYSDIMEN (25) ADIR EXT, 
PeYSDMSALRSPTR BYTE EXT, 


No CASE STATEMENT VAFIABLES */ 
CASESSTK(12) BYTE EXT,/* NUMBER OF STMTS IN CURFENT 


mromocOUNT  BYTS WxXr: /* LEVEL OF CASE SIVIS */ 


Ca 
tJ 
A 
4 
DI 
tad 
чы 
id 
r< 
E] 
a 
гт] 

< 
= 


Ze GLOBAL VARIABLES */ DCL BCDNUM(E 
SCOPE(10) ALIR EXT, 
COPE SNU~ BYTE EXT, 
TEMPBYTE BYTE EXT, 
PRODUCTION PYTE EXT, 
PPVSSBTSENTPY ADDR EXT; 


A COMPILER TOGGLES */ DCL 
LISTSPROD BYTE FIT, 
DEBES TN BYTE EXT, 


E COUNTERS */ 
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LAELCOUNT ALIR EXT,/# COUNTS MUMPER OF LAEILE */ 
E FLAGS USED DURING CODE GENERATION */ 


r G F r IN CASE SQATZMENT 57 

ET E ey IM e TT: STATEMENT *, 

READÍSTRT BYTE FXT,/* IN FFAD STATEMENT */ 

We SMT EYTS xxT,/* GETS NEW RECORD */ 

ME УКТУ EXT,/* DISPOSES OF PEGOPD */ 

VATPARM BYTE EXT, /* FORMAL PABAN IS VABIAZLE 
BIPr*/ 

DE DE as BYTE EXT, /' READING AGTUSL PARAMETERS */ 

ENE BYE EXT, /#.IDENTITIZ? IS IN SYMPOL TAFLE 
x / 


ENICASERAGOPYTE FXT, /* SET WGEN SICN PRECELFS IL */ 


Meme LOSAL VAPIARLES USED BY TYE SCANNER '/ 
Ia, INDICAS: TULL MOGUM--STILL “ORE 
A 4 


OM LDENTSIZE) 3275 MAT /* EOLDS CUPRTNI TOKEN *«/ 


/* CLOBAL VARIABLES USED IN SYMBOL TABLE OPERATIONS */ 
BUILTSINSTRL(1@) BYTE EXT, 


EU ADORA BXT,/* BASE LOCATION OË ENTRY */ 
EN TXT,/” CURRTNT TOP OF SIVECL TABLE */ 
E ОООО ОРИ АТ, UTILITY VASTABLE TO ACCESS 


BEL */ 
ые: PS EE 


De ED HETSADDE HY TE, CURREN RYTI PODUDEL 
EIA ag 55T PSIOR TO bOCTUP OF ENTER 


EN SEP VAPIASLES */ 
DCL 


PASMNUM(PSTACKSIZE) RYTE EXT, /% MAINTAINS N'"MREP O7 
PARAMETERS ASSOCIATEL WITE A SUBROUTINE */ 
PABULSGTACKLPSTACKSIZT) ADDR FXT,/% TRACKS STATEMINT 


EARELS */ 

PARMNUMLOC(PSTACXSIZE) ADIR EXT,/* MAINTAINS it: 
LOCATION IN SYV3OL TBL WEERT PARAMETER INPC STORET */ 

EE OC PSTACESIZE) ADDO EXT, /* STOSZS TUE SYMFOL 
DARL? ADDRESS OF TPE PERTINENT ENTRY */ 

DRS SEI ALD(PSTACZSIZE) BYTE ZXT,/* STORES TER TORY 
PIELS OF SCANNED IDENTIFIERS */ 

MPSS TACA (PSTICASIZE)B 173 FXT,/* BOLLS À VAFIAELZ'S 


NH PT 
BE SSSSTK(PSTACESIZE)BYT® EXT./* CONTAINS TEE 
BS CE TES EXPRESSION COMPONENTS */ 


BRTSADDR(PSTACKSIZT, ADOR FXT, 7 C RES.-AN 
EDENTTIEITP "S PRT LOCATION */ 

DAMT PITTE YT, 

(SP,MP,MPP1) BYTE EXT; 
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Bt eh ` "SEH s [= > 


Ky MNEMONICS 


AS O AL SM 


MACHINE * 


DICL 

NOP MOD END? LIT o “1º,LBL LIT. D 
ENT LIT “4 ° PRO Du ie aN LIT “6” ,SAYF 
Mies LIT 3 ,CNVR LIT “9 CNVI LIT °1@° ,ALL 
MET ir i2 ,ADLS LIT “13° ,ADDI LIT “1⁄4 ,SURP 
ШОШ т 16 ,MULP LIT “17” MULI LIT °18° ,PIVE 
КООШО т 20 MODX LIT ‘21’,XQLI LIT “22” NEOI 
MIT 24 ,GECI LIT °25°,LSSI LIT “26” ,GRTI 
EIN mele 26 EQLP LIT 29 “NEO LIT 30 ,LEGE 
BUTT 22” LSS? LIT °“22°,GRTB LIT ”24”,7G15 
EN LIT “36 ,LECS LIT “37” GEOS LIT °3&°,1L8SS 
Ba aT 40 .ZE0SET LIT “41” NEOST LI? “42” INCL1 
Bun? LIT 44 NEG? LIT “45”, 

ME IT “46°, COMR LIT 147 ,COMI LIT 4e’, NOTY 
ANDX LIT 'E@”,BOR GT SHA SIGE Í FA i 
pe ИШ Ол SEE OLI? (55 STDI LIT CRE STD 
EN BIT “52% STDIP LIT °59°,ISEC LIT ‘€0°,CNAI 
ВАТ, mer 62 ,ELC ITO NAT TIN Con Ес 
EO Lit (66 ,PARM LIT '67',PAPMV LIT “E3” ,PAFrX 
INC fe 22”, DAC mit Ci. DF LL EET 
SUB ШОШ ITS] IIT 175 .XAST LIT “76 LOL 
ME rig 78 ,LODI LIT 79 ,92DV3 LIT “82 *,RDVI 
K LIT (82 ,*RTR LIT 83° ,WRTI LIT “Ga” .#?TS 
DUMP LIT “86”, ABS pu que EDEN BIRNEN 
OS mere 90” ARCTN LIT 791” EXP ¡A leet 
ET LIT “94 ,ODIT J IE S WOEN LIT TU OBSS ETE 
BRUNO LIT “98 ,ROUNT LIT 799” ,ORT BITAG WER 
BU IT 122° ,PRED LIT/1?22' ,S*FK LI"'104',PUT 
CET WES . RESET LIT 122” ,2E%PT LIT 128  PAGF 
NEW mad .[15P7 LIT 1117,V4D LEA AL 
RDV mu 11475 
BOANNZR:PPOC EXT; 

END SCANNER; 
PRINTSPROD: PROC EXT; 

END PRINTSPROD; 

BEROR: PROC (BRACOLE) FXT5 ICL ERACCDE ATIR; 


END TERRORS; 


73% EXTERNAL PROCEDURTS FROM SYMBOL.SRC */ 
BATT: PROC(CBJCODE) EXT: DCL OEJCOLZ FEYTE; 
END CUONERATF; 


ee ze ОБ, 


CI 
t? 


BXNSADDP: PROC(A,B) FX®; L 
END CENSADIR; 


BUTADDRPTR: PROC(OFFSET) EXT; 
OFFSET BYTE; 
END SETATDRP™R3 


STTSPASTSPN: PROC(OFFSET) EXIT; 


e 


PIT. 


Bs 
Di. 
IT T 
Lo SIE. 
кл ONE 
DILE A 
LL Y 
J HAE 
DD cM 
IL NO 
Ed Ad, 
BIT Ga 
үр cM 
LATA 
Lie NA 
DEUM NO 
bia 
PI ORA 
I Е 
PTR Sn 
TIU AES 
Ер ш 
үе 
BIS or 
LIT YN. 
LITA. 


ET 2 Mei 





| 
| 


CEKSPRTSNAMZ: PROC(A) BYTE 
EAM IS OF FSET FROM BASE 
BOTEN PASEL PRINTNAME 
Ben (LEN,A) BYITE; 

END CEXSPPTÊNAME; 


BOOKUPSPNSIT:: PROC(A,IDSENTRY) BYTE EXT: 
DEUS IDSTNTRY) 3YTE; 
PND LOOXYPSPNSID; 


MTS: PROC(COUNT) EXT; 
pn COUNT BYTE; 
UND LIMITS; 


ENTERSVARSID: PROC(A,B,IISENTRY) EXT; 
DORA ,B,IDSFNTRY) BYTE: 
END "NTERSVARSILI; 


ALTERSPRTSLOC: PROC EXT; 
ПОО (T P) BYTE; 
END ALTERSPRTSLOC; 


ENTERSSUERTN: PROC(A,B,I 
ШО (A.R IDSENTPY) Bi 

END $NTZPÉSUBRTN; 

MOCKUPSONLY: PROC(A) BYTE EXT; 
ПЕШ А түтү; 

END LOOKUPSONLY 


NONE TBCD: PROC(A,B) EXT3/* ASSP/MP/FMPP1, B=POS/NTG 


DEL EE DULAG EFLAG, SFLAG,A e ‚М BASED PDINTNAME) 


END CONVRTECD; 


CONVERTI: PROC(A,B) ADDPYSS EXT; 
DCL (I,A,R,N BASED PRINTNAME) BYTE; 
DCL NUM ADDR; 

TND CONVERTI; 


MONVRTSCONST: PROC(A) EXT;/* A=POS,NFG */ DCL A EYTE 
END CONVRTSCONST; 


ENTPSCONSSNTRY: PROC EXT; 
DENNTXIND?X PYTF; 
END ENTRSCONSSNTRY3 
TNTRSSTRSTYP: PROC(A) FXT3 
Ber A BYTES 
END ENTRSSTRSTYP; 


BTORFSCONST: PROC EXT; 
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Lom 


T 
M 
pa 


z J 





MUD STORFSCONST; 
pe EXTERNAL PROCEDURE TECLABATIONS FRON SYN1.SRC */ 


ERDSEISLOWSCHX: PROC EXT; 
TND OPDSPISLOWSCEK; 


EUPSSUPSNTRY: PROC EX; 
FND FNTRSSUBSNTRY; 


H S0EFSET: PROC(A) RXT3/* TYPTSLOC™ */ 
LOL A ADDR; 
EE (ALLG SPORM, 3) BYTE; 

END ALLCSOFFSET; 


eon DXSOFFSET: PROC ADDR EXT; 
INIA ADDR ,B BYTE; 
END ALSNDXSOFFSET; 


ALLOGSVARS: PROC EXT; 
END ALLOCSVARS; 


CASESPTRPTR: PROC(A) EXT; 
KOTA RYT? 
END CASESPTRPTR; 


KI SVARSTYPE: PROC EXT; 
mo SETSYARSTYPR; 


MOADSVARI: PROC(PT) TXT; 
Meee BYTE; /* PT REPRESENTS A STACK POINTE? */ 
END LOATSVARI; 


MESTENSVARI: PROC(LS, STOPESTYPF) EXT: 
ES PYTES /% LS IS THE LFFT SIDE OF ASSMT STMT */ 
DONNA. B, STORFSTYPE) BYTE; /* STORESTYPE IMTICATES 
WEETHER 


IN LETE OR LEAVE TEE CURRENT VALUE AT TPE ТОР OF (Fr 
SIACK */ 
END ASSIGNSVARI; 


ШОО О eRS TYPE: PROC PYTE EXT; 
TND CHKSEXPRSTYPE; 


MOPYSSTACKS: PROC(A, B) PXT; 
Bee’, PB) BYTE; 
MID COPYSSTACKS; 


WRITESVAP: PROC(NUMP) EXT; 
DO NUME BYTE; /* NUMBER OF WRITE FARAMS */ 
END WPITTSVAR; 


READSVAR: PROC FXT; 
END READSVAR; 
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MOOPYSBRANCH: PPOC FXT; 
END SCOPESBRANCE; 


BUPELSMAXER: PROC E 
END LABELSMAKFR; 


Ps 
HJ 


PS 
Hj 


ESPPSTYP: PROC(A) EY 
BORDA BYTE; 
END USFRSTYP; 


"9 


BEEUSAVESPLOCK: PROC EXT; 
END SETSAVESBLOCK; 


BEADSNSBLX: PROC EXT; 
END EEADSNSRLE; 


MNESSUERTN: PROC 
END FWDSSUBRTN; 


t3] 
ta 
tJ 


GOTSPARAMS: PROC EXT; 
END COTSPARAMS; 


MS OESTYPE: PROC(A) EXT; 
äh pm Er 
END SETSOPSTYPE; 


BALLS&SPROC: PROC(A) 
BEA BYTE; /* m 
BYP CALLSASPROC; 


EXT; 

HUE OR FALSE */ 
EX SFDACSTYPT: PROC EXT; 

END GOTSFUNCSTYPS; 


EV DSPROGRAM: PROC EXT; 
END FNDSPPOGRAM; 


ESAYSDECLAPRE: PROC EXT; 
END ARAYSTECLARE; 


BINDSRELOP: PROC EXT; 
END FINDSRELOP; 


ME oi SYNTEESIZE:S PROC PUÉLIC; 


Mi LiSTPROD TETN 
BALL PRINTSPROL; 


DO CASE PRODUCTION; 
E рио O D U pi L O ih 2 


ale ue 
BIE DS BK DS BIS FS AS SIS AS AS SIE FS FSIS BE TS IS AS OAS AIS AS AS 


/* CASE © NOT R sy ; 
ү» j PROGRAMS :1= <PPOGRAM EFADING> <BLOCK> 


Ze le al lo al 
Ee Ne Pe ie He He He He He He Re ed 


a wie ale ale slo nte Te sie ale n'e els «q^ nto nd alo ale ale ales ale ale a's vio nto sie 
= e ju VIR eye kWh AR ys A UI IA A Sum eN "| ey ae, 


ole ale ale 
2,9 m cS 





D Tu NS ` 
3% Ng SI 
a. V 4% 


CALL ENDSPROGRAM; 


2 T CPROCEDURE Lt. 
CALL ENDSPROGRAM: ` 
© <PUNCTION EZADINS> <BLOCKD 


CALL ENDSPROGRAV; 
4 GUHOCUAMOHERSADING» :2= PROGRAM <PROG IDENT> í 


4 FIR IDE) 5 
DO; 
SCOPESNUM = e; 
SCOPT(SCOPESNUM) = SBTBL; 
SCOPESNUM = |. 
END; 
5 <XFILE IDENT> ::= <FILT IDENT 
9 
6 DN RIDENS 
; 
mee «PROC IDENT» ::5 <IDENTIFIER> 
9 


S <FILE IDENT>::= CIDENTIFIER> 
CALL ENTERSVARSIT(16,SP,FILESTNTRY); 
o BLOEN ::= CLIPDSCLPICTIPICVDPICPEFDPICSTMT2N 


12 ООР > з= 
CALL SCOPESBRANCE; 
11 Miei 
CALL SCOPFSBRANCE; 
12 a STRING) 5:5 «LABELS 
CALL LABFLSMAZ EP; _ 
¡ES DS NE Inn 
BA LAPELSMAKER; 
14 CLABELD ::= NUMBERS 
ey P ENUM <> INTEGERSTYPE THEN 
Mee ERROR( LS); 
EDE s= 


GO NST <CONSE DEE) N5 


il 
/N 
tt 
t) 
ld 
3 
Ca 
O 
Z, 
сл 
+3 
Tv 
{aj 
rz] 
NZ 


3 
? 
6 
17 CONS IL. DEP» 
3 


, 
19 MQ CONGT DEF) ::57 <IDENT- CONSI? = <CONSTANT> 


BALL YNTRSCONSSNTRY; 
29 ENT CONST> ::= <IDENTIFIER) 
ro; 


[т LOOKUPSONLY( SP) TEEN 
CALL ERROR DC’); 
SITL TNTERSVARSIN (@,SP,CONSSENTRY); 
UND; 
21 «CONSTANT» ::2 CNUMBER> 
ШО; 


CUT GONVRTSCONST( POS N5 
FXPRESSSSTE(MP)=CONSSNUMSTYPF; 
VECPTR=VECPTR+1; 
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NS > ro ne 


АР; 3. M a 
és dn AN $^ 
DN = ` ` 


aba 
a 


e 4 
>x / 
ze d 
y) 





END; R 
22 CSIGN> (NUM3T3» 
LO; 
IF SIGNTYPE=NEC TEEN 
SIE CONVRETPSOONSTUNSC); 
Mise CALL CONVETSCONST( POS); 
EXPRESSSSTX(MP)=CONSSNUMS TYPES 
VECPTR=VECPTR+1; 
ENNCNSFLAC - FALSE; 
END; 
22 ECON STA MT DENT 
BO, 
EXPRESS5SSTX (MP) -CONSSILENTSTYPE] 
EE RER DC RE 
БАП STORESCONST; 
END; 
24 ~ <STEND <CONSTANT IDENTS 
DO; 
IF SICNTYPE=NEG THEN 
FXPRESSSSTK(MP)=CONSSSIDFI 
ELSE EXPRESSSSTK (MP)=CONSS 
VECPTR=VECPTR+1: 
LL STORESCONST: 
SICNSFLAG = FALSE; 
ENT; к 
25 «STRING» 
Do, 
EXPRESSS$STK(MP)-2CONSSSTPST7YPZz: 
UCcPTPZVFTCPTPT: 
SUL STORESCONST; 
ENI: 
26 CONSTANT IDENTD ::= CIDENTIFIER> 


a 


, 
27 SSIEN> ::- + 


DO; 
SIGNSTYPT = POS; 
SIGNSFLAG = TRUE; 

END; i 

28 - 

DO; 

SIGNSTYPT - NEGI 
SIGNSFLAG = TRUE; 
END; 


29 <TDP> 312 
CASESSTMT= FALSE) 

ce ALO STYPE BET SUNG 
BS Ch es PALER: 

31 IPE DE SIRING) ::= <ТҮРЕ [D^ 


9 
32 ALTA INE SIRING) EE 


“ae 


SEI 


C 
taj 


€ О ООО ГУ х= STYPE. IDS? > 
DO; 
APTRADDR=TYPFSADDP ; 


m 





y M 
e 


/* 


Y ale 
A 


/* 
/* 


ADDRPTR=TYPESLOCT 
END; 
Ca EE DS 2: <IDENTIRIER> A 
DO; 
IF E s ) TEZN 
BREIT ERROR DT’); 
PARENTSTYPE= Pu RE 
CALL ENTFRSVARSID(78E,SP,TYPESENTRY): 
IF NOT PRESENT TEEN 
DO; 
CT IM) 
ТҮРТ$<$АррЕ=53ТЯ[,; 
SBSTRL=SPTEL+2; 


END? 
FND; 
35 WDYPpS5 3x 4STIMPLE TYPE» a 
36 SEA PURA TYPO % / 
; 
37 EG INTER TYPR> * / 
32 <SIMPL® TYPED ::= <TYPR IDENT> TA 
39 TEST RENT o x / 
? 
Ø CONSTANT OOMS AE sy 
CALL FNTRSSUBSNTRY: 
41 <TYDE ILENT> ::= CIDENTIFIFR> “ / 


IF LOOKUPSPNSID(SP,TYPESENTRY) TEEN 
TYPESLOCT-LOOKUPSADDE: 
WE DO: 
MALL ERROR( TI”); 
Me RSLOCT=. PUILTSINSTEL; /* INTEGER DEFAULT */ 
ENL; 
42 <TIDENT STRING> ::= <IDENTIFIERS =) 
DO; 
TYPESORDSNUM=C; 
SUL USERSTYP(TYPESORDSNUM); 
END; 
43 ^ «TIDENT STPING> , <IDENTITIEDD */ 


TYPESORDSNUM-TYPFSORDSNUM-1; 
mnt USSRSTYP(TYPESORDSNUM); 


44 <STRUCTURED TYPE) ::= <UNPACKED STRUCTURED TYPED */ 
45 ^ PACKED A / 
45 <UNPACKED STRUCTURED TYPTS */ 
46 ОП ООО КО STRUCTLRAL TYDE>\;:= <ARRAY TYPE) x / 
47 C <RECORD TYPED 7 
¿ë VIS IND 7 





` 


RIES 
See 
ae as 


/ ale 
as 
/ sie 

oy 


— N 
A BG SL 
ey oe PAY 


4 


° (O< e 


50 
5@ 


HAY TYPE) = ARRAY | CINDEX TTP 
COMPONENTE TPE? 


tay 


CALL ARAYSDECLAEE; 


91 


NPE PO SIDPINÇ) 235 CINLEX ТҮРҮ» 


DO; 


IP APRYSPTR=APRYSNEST-1 TEEN 
BO; . 
CALL SRROR( AN ): 

ARYSDMSADRSPTR = ARYSDMSADRSPTR - 

È NUMSARRYSDIM(ARPYYSPTR); 
END; 
FLSE ARRYSPTR= ARRYSPTR+1;5 
ARRYSDIMSPTR=2; 
ARYSTMSADRSPTR=ARYSDMSADRS OTR+1$ 
Pe YoOTY(ARRYSPTR) = ALSNDXSOFFSET; 
MAPTSDIMEN(APYSDMSAD®SPTR) = TYPFSLOCT; 
TEMPEASE=EASE; 
B F = TYPELOCT; 
CALL SETALDRPTR(7); 
ARRYSTIMSLOWVAL(ARYSDUSATRSPTR) = ADIRPTA; 
GEL SYTADDRPTR(9); 
ARRYSDIMSEIVAL(ARYSDMSADRSPTP) = ADDRPTR; 
ШОП SETAC[DRPTR/(11V5 
NUMSARRY SELMTS(ARYSLMSADPSPTR) 
RASE=TEMPBAST; 
NUMSARRYSTIM(ARRYSPIR )=1; 


ADLRPTR; 


Il 


түр; 
SE ^ INDEX TYPE STRINZN 
52 <INIEX TYPE» 

DO; 


IF ARRYSDIMSPTR=MAXSARRYSDIM-1 TEEN 
GAEL ERROR AT); 
ELSE APRYSDIMSPTR=ARFYSDIMSPTR+1? 
ARYSDMSADRSPTR=ARYSDMSADRSPTR+1; 
ARRYSOTY(ARZYSPTR) = ARRYSOTY(ARKYSPTR) 
ALSNDXSOFFSET: 
ARRYSDIMEN(APYSDMSADPSPTR)STYPPSLOCT; 
TEMPRAS®=PASF; 
ES ESTYPESLOOT; 
MEL SETALDRPTR(T7); 
ARRY$DIMSLOWVAL(ARYSDMSADRSPTR)=ADDRPTP; 
OI SETADDRPTR(S); 
APRYSDIVSYIVAL(ARYSDMSAD?SPTR ISAIDRPTR] 
CALL SETALDRPTR(11); 
NUMSARRYSFLMTS(ARYSDNSADRSPTR)=ADDRPTR; 
BASESTEMPRASE; 
NUMSARRYSFIM(APRYSPTR)=NUMSARAYSTIM(APPYSPTR\-1; 


UND; 


S 


f 
54 


ОПО ОУ ҮРЕ» ::= CSIMPLE TYPy» 


ООО ШО НКАТ TYPE): = KIYPE) 
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ate 
өү“ 


STRINGS ] Cp/ 
na / 


2º / 





/ Ké 


`, ә t 
"e Wy Atay 


y slo 
ү” 


, 
39 


DO; 


ADDEPTR= PRVSSPT 


EN 
DE 


TO; 


fs rp rE «RADOPDSOCTÜIELD LISTS TD “7 
y 
TARTANTSPART(RTCSNST)=FALSE; 
BASE, TYPESLOCT=RFCSPARSADR(RECSNST); 
IF VARSCASSVAL(RECSNST) <> Z TEEN 
BIL ER? Iv O); 
БАТ, SPTADPRPT2(5); 
ADLRPTRZFXISOFSTSBSE(RECSNS?7W 
GALL SETADDRPTR(7); 
SENTRY; 
RECSNST-RECSNST-1; 
D 
SPECORD> ::= RECORD x / 
y 
RECSNST=PECSNST+15 
APTRADDR,RECSPARSADR(RECSNST)-STTTL; 
ATDRPTR-AGOGR; /“COLLISION ENTRY*/ 
APTDADDP=APTRADDE+2; 
ADDRPTR-PRVSSTTSENTRI; 
PRVSSPTSENTRI=SBTRL; 
APTRADDR=APTRADDR+2; 
2YTEPTR=ÍFE; /* FORM FOR RECORD */ 
SERER-SENBL+9, /* ALLOW FOR REST OF ENTRY =/ 
pos INITIALIZE PECOPD = 
VADIANTSPART PEC NST) EE TALSI; 
FXLSOFSTS GEI CENST)=02908; 
VAESOFSTSBSE(RECSNST)=000P5; 
GUSSOFST(RECSNST)22202H; 
UM SDASSTAL(RECSNST)sQOCOH; 
RECOFDSPTR=-1;3 
EE 


a €FIFID LIST> ::= <FIXEL PART> 

5€ GET AD IS uL DNI Dp A 

ng ` (VARIANT PARTS / 

62 — «FIXED PART» ::= KRTCORD SECTION) = 

E1 EE 

ai Br li> 1:2 €EIELT ILENT STAINC»? y <TYPE>*/ 
; 


SAN AT LGSORTSET(TYPFSLOCT NG 
KOS T OCBASICTYP AND ALLCSOTY ARE SuT */ 
BOP TOPTR = E TO RECORDSPTR; 
BASE = RECSALDR(PTRPTR); 
CALL SETSPASTSPN(S); 
sm pipu ATOCSASICTYP 
PROGABLA-LETRADER+LS 
lupsomosTYPTSLODT; 
APTRADDP-AFTRADDR-2; 
ADIRPTR=CUPSOFST(RECSNST): 





| 


ING 
м. 
ar 


= 
ae 


`, ae г a 
V "DC ww R 


= ` NS ` P IN 


Ga 
Сї 
e 
AN 
O 
a1 
Cn 
VJ 
— 
1j 
t 
CI 
Un 
(N 
Æ 


rk r 
£z ADDOSCTY: 2 
END; 


RECHBTSPTR=Z; 


I? PAD 50FST5BSE (FC 34ST Rs SR) 
MEN EIDSORSTERSELABESNSTISCURSOFST/RECSNST); 
END: 
ET iù 
; 
£4 GRILO IDENT STPINCD DE CTIFLD ILENTD 
, 
€5 Re Vea TST ries. .; 
ES IEP I PI o p. 


Ке ОУ» 
CH OD 


END; 
END: 
ИШ TANT PARTS ::= CASECTAC FIEED<STTPZ ILENT> OE 
67 <VAR TANT SARIE 
68 AY Ii обу 
EE (VARIANT STRINGS» 
; 
62 <VARIANT STRING> ::= <VARIANT> 
; 
7? ANS A AN 
; 
7.1 MIRTO: «FIELD IDENT> 
TACSFD(FECSNST)-TRUZ! 
EN VAPTANT> -:=<CASE LABEL LIST> : (<FIELD LIST> ) 
73 a 
; 
a GET BP LISTO <CASE LABZEL> 
no 


DATORI = SIDENTITIER> 


9 
I? RECORDSPTR 4» 10 TETN RTCORDSFTR=SPECCRESPTR +1; 
ESE CALL ERBOF( EN”); 
КОО ATER(RECORTSETR)-SETEL; 
КОТ WNTERSVARSIPD(S5BZ,SP,TYPFSPCLET); 
IF NOT PRESENT THEN DO; 
O s, 
APTRADDR=SBTRL; 
ADDRPTPSRECSPARSADR(RECSNSTD5 
EG ELS BOEI AT) 
ED 
IF VARIANTSPAFT(PRCSNST) THEN 
DO; 
BASF=RFCSADDR( RECORDSPTR); 
ALL LIMITS(2); 
BELLE SSTADLRPTR(4); 
BYTEPTR=CDF5; 


23 
HAEL TIEK (SP) = LABLCCUNT; 


LAELCOUNT = LABLCOUNT + 25 
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ALA эг. 
e ey 
Paa C 


AA ue ` “4 
en FS E “W 


ate 
a Va 





PROBE CENSAITR(KASP.ALLCSOTY): 
CALL GENERATEZ(TOW(LABELSTACK(SP)) '; 
CARL GENSRATE(EIGH(LA"ELSTACECSP)) ); 
END; 
75 EE EI >) 
DO; 
MDL GENSADDR(KASFT,ALLCSCTY); 
CALL GENERATE(LOW(LAETLSTACK (MP 
CALL GENTRATEF(FIGE(LABELSTACK(M 
END; 
76 Nu TATE: KCONSTANDD * / 
IF CASFSSTMT TEEN 
DO; 
CASESSTK(CASESCOUNT) = CASESSTE(CASESCOUNT) + 13 
Do CASH TYPRESSSSTY(SP) 5 
/* NUMBER */ 
PENE GT - CONVERTI(SP POS): 
DENTIFIER */ 
DO; 
NAN OT LOCXSUPSONTY(SP) THEN CALL 2eROR( “TT ~); 
ELSE DO: 
BASF = LOOKUPSADDR; 
CALL SETSPASTSPN(7); 
ALLCSCTY = ADDRPTR; 
END; 
END; 
Peo SIGNED [DVNTIFISR */ 
BO; 
ENI 
/* STRINC TYPE */ 
, 
ENT /*OF CASx*/ 
ENT; 
FLSE 
pa? 
IP NOT VARIANTSPART(RESSNST) TEEN 
LO; 
VARIANTSPART(RECSNSTI=TRUE; 
AP GASES TP(RECSNST ) #TYPESLOCT: 
VARSCASSVAL(RECSNST)SALSNDXSOFFSTT; 
meen ALLCSORESET( TYPESLOCT); 
IF TACSFD(RECSNST) TEEN 
DO; 
o 
BASE=RICSADDR(RECOR 
CALL SETAL E 
Eke Tone 
CALL SETADIRPTR(5)5 
CALL SF BPADDRPTD (E-RYTEPTR); 
ATDRPTR=VARSCASSVAL(RECENST); 
APTRADDP=APTRADDR+2; 
ADDRAPTR=VARSCASSTP(RECSNST); 
APTRADIR=APTRALLR+23 
ADDRPTR=CURSOPST(RECSNST); 


pa 
P))); 


SE; 
DSPTR); 


Mc 





CERRCTSTUR RAROS NS II OSA TEENS SD) ALO O, 


USUSCESTSBRSEÍPEOSNST)ECURSOFPST(23ECSNST); 
ug 0575 SSRUSECSNST)ISCHURESOFST(RYOSYST) 
END; 

/* CALL COMPARESCONSTSVARIANTS */ 

Pome CESCKS TEE CAST LABLE WITE TEE Y 
ME ро EN 
VECPTR=VECPTR-1: 

CONSTSPTR,CONSTSINDX ,CONSTSPNSPTR=0; 

END; 

7E Mou ETES :: SET OF BASE TYPE» sf 

CALL FNTRSSTRSTYF(?7R); 


ALANO O ту 
NST); 


78 <BAST TYPE> 2:= <SIMPLE TYPF> sn 
de <FILE TYPE> 2:= FILE QF <TYPE> üJ 
STI ENTPSSTRSTYP(2FE)G ` 

Pg СПО ТМ ТЕД ТҮРЕ» 21= CTN DY 
BT ENTRSSTRSTYP(37E); 

£1 <VDP> ::= n 
SCOPE(SCOPESNUM' = SETEL; 

82 ^ VAR <VAR DECLAR STRING) 5 ey 


SCOPF(SCOPESNUM) = SBTBL; 


90 <SROR E DECLAF> 


` ENI NS N 
dé Aë LT 4 ` 
$c p Se se 


az VA DICLAR STRING> ARO AR x / 
y 
ga DEA SS IRENE y x / 
pa <TAR DICLAR> nag 
, 
85 AR DECLARD ske <IDENT VAR STEING> e XTYpoS 24 
pos 

BALL ALLOCSVARS; 
END; 
ge Mu UD VN STRING) ss OPBPSMPIDSDEPO x / 
Po; 

VADSPTA = 0; 

PARENTSTYPE, VARSPASE(VARPTO) = SPTBL; 

CALL ENTTRSVARSID(QA,SP ,VARSTNTRY): 
END; > 
57 GEEN RS AS o x / 
87 <IDENTIFIER> as / 
IF VARPTR <> 12 THEN 
Be: 

DNESPTR = VARSFTR + 13 

VARSBASE(VARSPTR ) = SETRL; 

CALL ENTERSVARSID(G, SP,VARSENTRT): 
END; 
ASE CALL EPROR( TUN"); 
&& GEE RE sis wg 
CALL SYTSAVESBLOCK; 
Eg <PORF DECLAR> 7 
ШОО SETSAVESELCCK; 

=R sc poor n m n 


e 


91 SRO z 


DECLAR^ 


SECO Ge EE 





92 EOC OR FUNCT 3315 SPROCELURE EPEADING> <ELOCK> 
CALL PEALSNSPLE; 


az ^ <PROCEDURE ERADING> STIFECTIVE> * 
i 

94 FUNCTION EEADING> <BLOCK)> 

CALL HEADSNSBLK; _ 

95 <FUNCTIGN EEALING> <DIRECTIVED 


e 


Bem CLIRECTIVED ::= <IDENTIFIER> 
ET LOOX UPSCNEY(SP) TEEN CALL ERZOR( 17”): 
MESS DO; 

BASE = LOOKUPSADDR; 

CALL SFTADDRPTR(S); 

ШШ СҮТҮ РТ = 21 TEEN CALL FYDSSUROTN; 
END; 


ES I CRE — TS 
e M M Lc se 
dt an an #% #% 


CALL GOTSPARAMS; 
E NIU QI oPOOSDSRE <IDE2NTIFIZA> 
Os 
PAP AMNUM = 2j 
CALL ENTERSSUERIN(C,SP,ORCCSENTRYI);3 
UND; 
ү 12 SOLD $:— <SCFMAL PARY SECTS 
rl ALLOCSVARS: 


E97 <PROCFIURE AFADING> ::= <PROC ID) ; 
CALL GOTSPARAMS; 
/ 98 o EE 
/* 98 FOSSI 5; 
y Big 


/* 101 ð SUD LIS» 
/* 121 DT eSI 
INN ALLOCSVARS: 
(= 102 <TORMAL PAPA SECTD - O DA GRE Do 
$ 
/:: 103 7 VAP KPASA GROUPS 
Los 
TEMPRYTE = VARSPTE; 
DO VARSPARMSPIR EG To TEMP VIE; 
BASE = VARBASE (VARSPARMSPT3); 
CELL E is 
BYTEPTR = BYTEPTR 02 228; 
END; 
END; 
/# 104 © FUNCTION <PAPA GROUPS 
DO; 
eM PEYTE = VARSPTR; 
TO VARSPARMSPTR = @ TO TEMPEYTR; 
BASF = VARBAST (VARSPARMSPTR); 
DE SHTADDEPTR (4); 
EYTEPTR = FUNCSENTEY OR EGE} 
TND; 
END; 
/* 1€5 ERBE RU SE 2998 IDENT .LIST> 


$ 
/* 126 CRC IDENT LIST» == <IBAENTIFISR> 





lie (PAPA GROUP? 


IJ 
> 


VARSPTR=E: 

PARAMNUM = PARAMNUM + 1; 

AE SBAS EP SS BT EL; 

BL TNTERSSUERTN(@.S? PROCSTNTRY |: 


END; 
127 PEO SITA USON. DAN TIP 
IF VARSPTR <> 16 TEEN 
D0; 
VARSPTR=VARSPTP+1; 
PARAMNUM = PAPAMNUM + 15 


DOS BASF(VARSPTR)SSBT3D; 

CALL ENTERSSURRTN(2,SP,PROCSENTRY?); 
END; 
ENSE CALL URPOR( UN); 


p 109 ENE ee CERN RK 


ЕЛ ``. KEYSER (ONE / 


J” x / 
TO; 
VARSPT?-Q: 
PARAMNUM = PAPAMNUM + 1; 
WARS PASE(@)=S3TRL; 
CALL ENTZRSVARSID(O,SP,VARSENTRY): 
FND; 
/* 112 Sr QEPDENTISSLERE ey 
IE VARSPTR <> 12 THEN 
DO; 
VARSPTR=VARSPTF +1; 
PARAMNUM = PARAMNUM + 15 
VARSBAST(VARSPTR)=SBTAL; 
CALL ENTERSVARSID(3,SP,VARSENTERY); 
END; 
FIST ELLERT TORC VN); 
FUNCTION SEADING> ::=<FUNCT ID> :<RESULT TY?E> ; */ 
De: 
CALL SOTSPARAMS: 
MEER EOTSEUNCSTIPE; 
END; E 
/* 112 HONG TOM n 
E" 112 CRORM PATA SHOT LIST...) ag 
/* 112 EF, * / 
DO; 
CALL GOTSPARAMS; 
MTL COTSFUNCSTYPE; 
O ALTERSERTSLOCS 
END; 
/* 112 GEEET IE s2 FUNCTION <ITENTI bisa 2 / 
DO; 
PARAMNUM = 2j 
DALL ENTERSSUPRRTN(C,SP,FUNCSENTRT); 
FND; 
/* 114 cup Mors xc prp REI sy 
MNT ADLLCSOFESET(TYPELOCT); 
/* 115 dIE. = COMPOUND STMT x / 


1 





IN 
M 
ae 


18 CITI EE 

17 7 <UNELE sob 
118 КОТ ЕЕ Т> SU > 
1 


EEE STMT> 3:=<IF CLAUS ><TEUr PART> ELS*43AL STMT»5* 
EME ENSAI TR (LEL, (LABEDSTACKE(E2)=1)); 


* 122 US EA SE 


ШЕ <UNBAL STWT> ::= <IF CLATSE> <STMT> 


CALL GINSADDR(LBL, LABELSTACX(MP)); 


) 


B lc? SIE ODA A ESE 
. 122 CON Dives UME > 


erg GENSADDR( LOL, ( LABELSTACZ (MP )+1));3 


123 ea <EXPRESSION> TREN 


LO; 
mee BLS TACK (MP )=LARSLCOUNT; 
bee LOOUNT=LAPILCOUNT +c; 
WE KPRESSSSIKIMPPI) = BOCLXANSTIPE TERN 
DO; 
CALL GENERATE (NO 
L 


Lo 
VIRGIN SALI (ELC,LALEELSTACK(YP O): 


UND; 
Meo CALL ERGOR( CR”); 
END; 
* 124 <PRUT PART? ::2 <BaL STMTD 
DO; 
i CENSALTRIERIL.(PARELSTACK(S m 11711) 
MG CGVNSAPDR(LSL,LABELSTACEK(SP-1 ^); 
END; 
* 125 <LAP®L DEI» = IMS s 
IT LOOXUPSPNSID(NP,LABLSENTRY) TZEN 


DO; 
ОООО SYTAPIRPTRS): 
CALL STTADIRETP(G+BYTEPTRO; 
ENS GENSADDR(LEL,ADDPPTP); 
END; 
HH ` CALL FRROR( UL’); 
* 126 EE: STEPS ss CASSIGNMENT SENE 


* 127 " <PROCFIURE STMT> 
x TT T WHITE STEMI 

* 129 ^ (BEPRAT STMT^ 

* 120 Bus MEE 

* 151 DASS o 

* 132 ^ (WITZ STMT) 


a 
y 


SM UNUM ec [un 


T m 
nw UV 
`` Na 


M 
4. 
M 


ar 
en 
Sg 


Ne ae 
dn es 
x ` 





ale 
ae 


Á 
q 


KE SE EE 


E 157 AE LE ic SURE 


O AN SN 


EE zoo => 
$ 
134 KCOMPOUND STMTD 
3 
9 
Bice ^ 


, 
S IM uec Sou 
SEND ASSIGNSVARI(MP,FALSE) 
IA 


' 
BES IDENTO 
L 


9 
M 138 ^ €VARIABL?» ^ 
; 
* 129 EE D DOES APR ES. ESE | 
BÓ: 
TYPESSTACK(MP) = (TYPESSTACK(MP) OR 423); 
TEMDRASE, PASE = BASZSLOC(MP); 
ALL SETSPASTSPN(9); 


RBASE=ADDR PTR; 

RAE SETADLRPTR(S)S 

fee BYTTPTR <> EXPSCTR THEN 
BUT EEROR (XC ); 

BEL SETATERPTR(15)5 

BA CTR127XPSCTR: 

DO WHILF EXPSCTR1 di; 
ТОШ КО че РЕ ТТ, ALDRPTR 
APTPADDP = APTRADDR + 4:3 
ШОР5СТ?Т = WFYPSCTRI - 1; 

ENT: 

CALL SETADDRPTE( 11); 

BEND CENSADDRÍLDIL, ADDRPTR); 

ESE = TEMDBAST; 

ШОР 57Т$РА5Т<РА(7?); 

Ore CENADDB(LITA, ADDRP?R); 

uu CENERATE(SUE); 

CAD CFNGRATE(TXP5CTE): 

CALL SETADDREPTT(9); 

SS = ADIRDTR; 

END; » 

142 <VARIARLE> q 
NUT LOOKUPSCNLY(SP) THEN CALL ER: 
uw DO; 

BASF = LOOKUPSADDR; 

BL SETSPASTSPN(12); 

PETSADDR(MP) = ADDRPT? + PRTSADIR (MP); 
PRL SETSPASTSEN(O)> 

SU CASEPTAPTR(BYTEPTR); 
TYPESSTACK(MP), TYPESSTACX(SP) = PTERPTRS 


END; 
141 <VARIAELE ILSNT> ::= <ITENTIFIERD 
DO; 


VARPARM = FALSF; 
IF NOT LOOXUPSONLY(SP) TEEN 
BT. SRECH. DT: 
Ela CALI SETSVARSTYPE,/4 LOOXUPSALDLR SET EFR= */ 


le 





APR 


Ng 
en 


STEN? p 


ni 


SAPR PS Li X 


| 

| ye 142 das LISTS EE =, 
| BESTER = FYPSCTP + 1: 

/* 144 — «FXPRESSIOND ::- <SIMPLE EXPRESSION) o 
Ka 145 Ü SIMPLE EXPRESSION> ef 
E 145 XRELATIONAL CPERATCP» ny 
Bm 145 <SIMPLT EXPRESSION» DN 


RS CUKSEXPRSTYPE TIFN CALL FINDSETLOP; 
ELSE CALL FRROS( CT); 


/* 146 <RELATIONAL OPERATOR> ::= = ef 
BEL STTSOPSTYPF (285); 
Re 147 PEE 7 
GALE SETSOPSTYFE(Z9915 _ 
| /* 148 Ce 5%) 
| CALL SETSOPSTYPE(ZAH); 
E /* 149 ` > = / 
CALL SETSOPSTYPF(235); _ 
I /* 152 < af 
| CALL SPTSOPSTYPE(2CE); 
E /* 1^1 DS a / 
| CALL SFTSOPSTYFPF(3DY)5 
/* 152 “IN ng 
CALL SFTSOPSTYP?T( GED); 
Pe 153 DM — CFACTORD x» / 
m /* 164 SUERO SUE LE LA OD sn ry Сууса» у 
DO: 
| IF READPARMS TEEN 
| DO: 
| APTRADTR = PAR ky 
IF SER(EYTE E TEEN 
CALL EPROR( NY dl 
END; 
| IF CEXSEXPRSTYPE TEEN 
| or 
| DO CASE TYPESSTACK(MPP1); 
/*Q*/ IF EXPRESSSSTX(SP) - 1H TEEN CALL GENEPATE(NULT): 
| H” [F EXPRESSSSTK(SP) = ZE TEEN CALL GENEFATF(MUL3); 
| FLSF IF EXPRESSSSTK(SP) = JH THEN CALL GENERATE(ISEC); 
ир CALL: EROR Ca NG 
ELS [с BYPPRSSSSTK(SP) e 1H TE*M 


DO; 
CALL CENERATE(CNVI); 
CALL GENERATE(CN2I): 
CALL GENERATE pu 
EXPRESSSSTK(MP) = UNSICNSEXPON; 
END; 


CONVERT 187 INTTGER */ 
CONVERT NT NHA 267 


V 
9 
ә 
, 


Se FI, 





ПОО LE PYPRESSSSTK (SP) = 
sl ERPORC^OS ^): 
/*2*/ I" EXPPRESSSSTZ(SP)sINTTGzRS$TYPz THEN 
CALL CENERATE(DIVI); 








MI r): 
/*3*/ I" EXPRESSSSTR(SP)=INTISTRSTYP? TSF 
CAL CENAR TE (MODE): 
gs CA ERROR Ca" 
/*4*/ IF EXPRESSSSTK(SP)z83COLEANSTYPE THEN 
CALL CA ARA AA TX): 
WESDRORRLUEREROR( Ca: 
END: /* OF CASE VARSTYPESSTX */ 
END; 
por CALL ERROR( CR’); 
PND; 
Es 155 SE EE RAT > = SCH 
CALL SETSOPS$STYPE(Q?R); Á 
E 156 / sy 
SEDI SFTSOPSTYPF(0O1E); 
/ 157 ® KIN A / 
NUIT SrTSOPSTYPT(Q2R); » 
/* 15€ MOT 7 
BEL SETSOPSTYFE(ZER); d 
/* 159 AND m 
CALL SETSOPSTYPE(Z4E); 
/* 162 <SIMPLE EXPRESSION> = (TERM) x / 
$ 
/* 1€1 MO E Dr 
50; 
IP READPASMS TEEN LO; 
ООНА ОН = PARMNUMLOC(/(S?): 
IF SER(BYTEPTR,7) TEEN 
MATE TENOR ШЕ”); 
END; 
DESC YEE = NEC THEN 
Dos 
JE ERPRESSSS7K(SP) = UNSIGNSEXPON THN 
BATING ban ЕСЕ): 
FLSE IF PX CPESSSSTA(SP) = IN@TGSESTYPS TEEN 
CALL GENFRATE(NEGI); 
BESE CALL ERROR( UO"); 
END; 
SEKR = FALSE 
BALL es 
END; 
/* 1€2 a SIMPLE EXPRESSION SC 
/* 1€2 @REINGNOP EE 
20; 


IF READPARMS THEN DO; 
APTRADDR = PARMNUMLOC(MD); 
I? SER(BYTEPTR,?) TEEN 
CALL ERROP( NE”); 
END; 
IY CEXSEXPRSTYPE THEN 
pO. 
IF TYPESSTACXI(MPP1)=55 
DO CASE EXPPESSSSTX(5P)5 
CALL GENERATE(UNION); 


I ne EE 
, 


SRO SRO 7 


159 





vi Be 
Nm 


* LEG PATO ia KVAR 


* 167 <VAPIABLT> ( CACTUAL PARA LIST» j 
* 168 ( KEXPRESSIGNY ) 


Eco ESSE 


CALL GENERATE AS? 1 - INTECER oi 
Ee - 
GREG BRA TE 

C 

C 


CALL ERRORI” ai Casa Æ ST AING е / 
GALL. ERROR ©” 
END;/* CASE */ 
ELSE IP TYPESSTACK (MP7 

DO CAST MY KPRESS 55TX 
CALL GENERATE (57 
CALL GENERATE 
CATL  GREOR/ CH 
CALL GENERATE(S 


DS Co; 


a NP (GA CT = 


CADE BAE ao 
CALL ERROR( “CE 
END; 
ELS® IF TYPESSTACK(M?P1)=75 TEEN/* EOOLEAN 
E 
IF EXPRESS$S TX (SP) = 
CAT GAN PATA (BORA) 
DES BAGON Steet 
END; 


oe éi od œ 
CO 
— 


O 
del 
e 
NL 


BOOLEANSTYPE TEEN 
); 
ENT; 


BESE CALL EBREQR( CF °); 
END; 


* 168 CADLINC OPEPATOR> ::= + Y 


NE SETSOPSTYIPI(2SE); 


BILL SETSOPSTYFE(ZET); 


* 1€4 ^ - x / 
/ 


= 165 CR 


CALL SFT$SOPSZYPF(27E); 


txj 
CI 
y 
ES 
AM 
} xj 
HA 
(+1 
ti 
Es 
.< 
g 
l! 
"Al 
tð 
EI 
J 
H 
raj 


y 
L 
Im (FOEMSTIELD(YP) = Z 
CALL CALLSASPROC(FALS 
ELSE 
CALL LOADSVARI(SP); 


CALL CALLSASPROC(TRUE); 
BEL COPYSSTACKS(MP, "PP1); 


` `v `“ v 
< a KÉ "Ww 


9 
172 ^ NOT <FACTORD 
PO: 
IF EXPRESSSSTX(S 
CALL GFNERATF(I 
MESE CALL ERRCE( 
En cOPISSTACKS 
END; 


* 171 ~ NUMBER» > / 


dop NUMSINTEGZRSTYPE TEEN 

DO; 
ERES SOS TR (SP) 
coll Y—-CONVEFT 
CALL GCENSADDRÍ 


TEGURSTY2E: 
HE 
Le i. 








“NT 
ars: DO; 
PRESS SS TR(SE)  =UNSIENSEXMPON; 
EAT DONVRTECT(SP,P0S); 
CALL GENERATE(IDIS); 
BO CE TAPTRZ TO RCDSIZE-; 
CALL GENERATF(BCINUM(PTRPTR)); 
END; 
PND; 
(= 172 | ^ NIL x / 
3 
y= 173 EE MRT NG. 
BO: 
EXPRSESSSSTK(SP) —- STRINGSTYPZE; 
ERTL CENERATE(LDSI); 
DO FOREVER; 
ER PTRPTE SO ne Cuma ie 
CAT CG ENGRA TE LACCUM(PTPPTR) N5 
END; 
IT CONT THEN/* STRING > 22 CFARS */ 
CATE SCANNERS 
REST DO: 
GAT CENTPATE(NOP ): 
RETURNS 
ENT, 
END: 
END; 
/* 174 MODAL Pas LIST> E NCIA PARA >: / 
PARMNIM(SP) = 13 ñ 
/* 175 CHCTUAL PACK Eisen a 
/x 1785 CACTUAL PARA» nu 
` tet pce PASGMNUMTMP) #1: 
/ 176 CSF CRIS] E 
CALL BE uer MDP1): 
[4 177 CENT LIST) = ge 
Meme COPYSSTACKS(SP, SP-3); 
/* 172 ór. = 
y 
E. <XELEMENT LIST> ::= <ELTMENT> " 
/* 187? aa ES EI MSN жу 
I" EXPRISSSSTE (MP MX TABS O ISP AN 
BED ERROR( ET”); 
E* 181 <FLIMENTD z KEXPRTSSIOND x / 
) 
Hr 122 SEN BES SS TON > ac EE Ee = 
Mee eS SSSTK(MP) <> EXPRESSSSTX(SP) TEEN CALL HARCP( ET"); 
/* 183 Sem STMES s2 COTO <LAYEL> “/ 
IF LOOKUPSPNSIL(SP,LAELSENTRY) TEEN 


DO? 
MATI SEADDRPT?(5)3 
CALL SETALIRPTR(S+ETTEPTRI; 
ST SENSALDR(ÜBRL,ADDRPIR); 
END; 





ur po; 
uu vewas('vtL^); 
CALL SINTRATF(NOP); CST (NOP); 
ND: 


4 dee EBSILN ¿SIMI LISTS> END 


nn 
ar 
¡A 


wu LUSSO SS iO 


Ha 
we QD c» (D «°D taj 
On 


pe 186 Co GETS EO STE ED 

E" 1-7 < c cTMTS RPS CELIO TRENTO 
UND CALLSASPROC(F ALSE): = 

/* 188 SU DUE: DITS Y 

y= 186 CAL PARA LI Si >) 


I? FORMS$FIFLD(MP) = BUILTSINSPPOC TEPN 
Ores CALLSASPPOC(FALS®); 
Meson CALL CALLSASPROC(TRÜE): 
/* 189 SPROON DURE’ TDENT> Pu TREN TIFLIA> 
DO; 
IF NOT LOOKUFSONLY(SP) THEN 
OLL- ERROR( UP’); 
ELSE DO; 
FASELOC(SP) = LOCKUPSAIDR; 
GA SE TADDA?PTR(/4)5 
ENRMSFIELD(SP) = BYT 
IF FORMSFIELT(SP) = 
TOR 
ATIS SESTSEANSTSPN(U) 
EE HECKEN 
DOG 
PARMNUM(SP) = 2; 
PEENNINECC( SP) 5 APTRATI? = 1; 
END: 
SISS IF BYTEPTR 
Bono 1Sa (RYT 
VTUSSTMT 
з 
EDS CUM 
E ow 
WRITESSTMT TRUE; 
| WRITESSTMT TRUE: 
| END; OE EAS UN = 
| END; 
| ELSE DO;/* NCT EUIL?T IN */ 
AS USAS TS PENES 
PARMNUM(SP) = RYTEPTR; 
C Ru DASTERNÇE); 
PARMNUMLOC(SP) 2 ALDRPTP; 
APTRADDR = APTRALTE + €; 
АВ®],5ТАСХ(5Р) = АГЮАРТЕ; 
READPARMS = TRUE; 
PAPMNUMLOC(SP+2) = 
INT 


SND; 


rl 
I H —< 
3 





HH 


NI 
NI 
N 


W3 
SE) 
— 


= PARMNUMLOCI 


Bag am << 
> 
CO 
DO 


At At м. 
a e e. 
NO ON ict 








FND; 
/* 1923 MN IU pn Ecc ph TN» 7 
EN GALE ST MT TEEN CALL READSVAR; 
MRS [7 WRITASSTNT TEEN CALL WRITTSVAR(Z)5 
USE IF NOT(E -EADPARVS) TEEN 
RO: 
POADPARMS = TRU? 
CELL CENERATE (PARMA); 
/#PARAMFTER IS AN EXPRESSION VALUE */ 
END; 
/* 191 BEH RE S oy, 
NOT WRITESSTMT THEN CALL ERFOR( PE”); 
St DO; 
IF EXPRESSSSTK(5 EG INT TYPE TURN CALL FRRO? aR ); 
Weel VRITESVER(1)3 
IND; 
y= 192 Амо uS ON ES OND >< / 
/* 192 EXPRESSION» " / 


NE NOT WRITESSTMT TEFN CALL FRROR( PR’); 
ESE DO; 
IF ED 07 GUNS TONS O NN ON IRPOR PT): 
UEXPRESSSSTK(SP) <> INTS*CSRSTYPE) AND 
e SSéSTE(SP-2) <> INTTGERSTYP®T) TUEN CALL FRROR( WP 
UU WVRITESVA?(2); 
TND; 


EN SX STMT» ::-XCASE FXPRESSDSCASE LIS” FLEMT LIST>*/ 
/* 192 END Na 


DOS 
PE LODUNT = LABLCOUNT + 1; 
BEND GESSATFLR(TSL,LABSXLSTACX(MP)): 
SASFSCOUNT = CASESCOUNT = lng 


END; 
/* 194 ROSS se CAST CUXPRASDLOND OE z: / 
no: 
CASESSTMT=TPUR; 
Mea XPReESSSSTX(MPP1) = UNSIGNSEXPGN) REN 


CALLER ER n 
LAFELSTACZ (MP) = LABLCOUNTS 
RUELCONUT = LAPBCOUNT + 1; 
MESS TZ (CASESCOUNT s= CASTSCOUNT + 1) = 2: 
END; Ä 
/* 195 SISTEMI PISTONE DIST ELEMENTO 4 

I? CASTSSTMT TEEN 
Do; 

CALL CENSALLR(ÍEPL,LArzELSTACX(MP-1?); 

meet CVNSADDE(L3L,( LABSELSTACZ(MP) 413); 


кр; _ 
/* 196 ESO XZ 
/* 196 С ОА LIST EIN MT x / 
IF CASESSTMT THEN 
ШО; 
GAIL GCTNSADIR( BRL ,LABTLSTACK(MP-11)5 
CALL CENSADDR(LSEL, (LABELSTACK(S2)-1)); 


ENTS 


192 








E CASE LIST PLEMENTO ::= 
PSSS TNT = FALSE; E 
y= 196 <CASE PRETIX> <STMT> 
le. <CASE PREFIX> ::= <CASE LABEL LIST> 
DO; 
MEL CSNSADDR (PRD, (LARELSTACE(M2)+1)); 
EG CONSADDER( LBL, LABELSTACY (MP) ): 
END; 
ARE <KITE STMT> ::= <WITH> <REC VARIABLE LIST> <BO> 
/* 200 Git Skee 
; 
EEUU «WITH» ::- VITH 


? 
E 292 GEO VARIABLE LIST» = <VAPTARLE> 
VE: 292 O i 
po 223 <VABTA3BL3SO 


MeL 5207 (SP) = LAELCOUNT; 
ENDLOGENSADDR(BLC,LASELSTACK(SP)): 
LAPICOUNT = LABLCOUNT + 13 
END; 
EN CVAILE SZLT> 2: :=<WEILEDI<EXPAZSSTOND<TOD<TAL STNTD * 
DO; 
PET CINSADLR(ERL,LAEELSTACE (M73): 
MEL GNSALDE(LBL,LABELSTACI(SP-1));5 
END; 
pe 22€ A VYETI? 
DO: 
MeesLSTAC’ (SP) = ThBLCOUN” 
ORTI, CFNSALER(T.EL,TAEELSTACKÍ(SP)): 
API COUNT = LARLCOUNT + 15 
END} 
Meo ¿FOR SIMT> ::= TOP<CONTROL VARI: ELE> :=<FOR LIST), * 
/* 207 «DO» 43AL STET» |! 
pO, 
Ut CINSALER(ERL,(LAFZLSTACX(5P-2)#1))5 
Seet CENSADDR(LBL,LABELSTACK(SP-1))5 
END; 
A (POR LIST> ::= CINITIAL VILUE) KIND “FINAL VALUES 
ШО; 
Meee PRESS SST“ (MP) <> EXPRESSSSTX'SP) THX 
CALL povos sa 
BENT GTNERATE(GEGT); 
END; 
/* 2cA ESO AO E DO AO A 
BO; 
dae POUSSSSTECMP) <> EXPRASSSSITÍSP) TARA 
CARRO AE HA): 


* 284 rs po 


`. N A. M ALA LA 
ae 2% dy e. ae ae 








MOI]. CONTROL VARIABLE? ::— CITPNTITIST2 = 
q 


ARPAPN = PALS; 
IF NOT LIOKUPSOKLY (8 EEN 
LLLE S RORO CT); 
BGY DO; 
APTRADDP = LOOKUPSADDR + 45 
RE RYTEPTR = LEN DEREN GAIL ESROP('CV'); 
HOSE GAIL SETSVARSTYBE: 


END; 
END; 
КООШО KINITIAL VALUF>D ::= CEXPRESSION> y 
DO; 


Ut ASSICNSVAPI(SP-2, TRU®); 
MAMETLSTACK(Sr) = LABLCOOUNT; 
ESSLOCOUNT = LAFLCOUNT + 25 
feeb CENA TI R(ERL,LAETLS5TACK (SP )): 
SAL CENSADDR(LBL,(LARBELSTACI(SP)+1))5 
CALL LOADSVARI(SP-2); 
END; 
/* 212 FINAL VALUT» ::-2 <TXPRESSIOND x / 
3) 
75 213 EE AT STD is <CREPUA TO <S TEE LISTS) UNTIL 
/* 212 <EXPRESSICND 


se M 
en e 
` NG 


“CALL ITALO NI: 
LABELSTACX (Sr)=LARLCOUNT; 
LABLCOUNT = LAFLCOUNT + 1; 
END; 
E 215 MG sis TC ay 
DO; 
IL GENERATE INC); 
CALL GENSADDF(LBL, LABFISTACK(SP-1)); 
END; 
/* 218 Morbo 3:= DOLATO Ze 4 
DO, 
TI СЕМЕВАТЕ(ГЕС); 
DEL CENSALIDR(TEL, LAERLSTACX(SP-1); 
Bun; 
IT ч OF CASE STATEMENT */ 


Bee E KS IZ 


AMS IN TIO: 





—— — — u EAS WS = 


= ——— — —— -—X 


EED vU 


ODE: DC: 
DECLAPE 

ТД TIT d pu py 

ECB ADDRESS INIT). 
#C353VTP BASED Hom ug 2 PES 

I EET E 

Fez PITE INITIAL(GFCE), 
EXCI(Z) 3YTE INITIAL(643,@ 48,13) 
TRUF BIT Er 

FALSE LEI oz 

ADDR ADIPESS INITIAL(1@CE), 

CFAR BA ADDR PYTF, 

ECL LE ‘Deen 

EXT DT “PXITTENAL”, 

PINC BIT “PPOCEDUPE’, 
BUFFSENT LIT CORN , 

BCDMUM(S) Bm; 


MON1:PROC(FUNC, INFO) EXT; 
men FUNC BYTE, 
INTO ADDRESS 
END MONI; 


RN PROCIFPUNC, INFO) BYTE EXT; 
DER FUNC 3YTE, 
ORDO DTRESS; 
END MCN2: 


meer: PROC EXT; 
END ROOT; 


PRINTSCEAR: PROCEDURE (CHAR)! 
DTCLART CFAR 3YTT; 
ШОП MON1(2,CHAP);5 

END PRINTSCUAR; 


CRLF: PROC; 
BENTL PSINTSCHAPR(13); 
CALL PRINTSCEAR(10); 
END CRLF; 





кча 


A — — 


EN PRACEDUPE(ADD1); 
BE ALDI ALDRESS, C BASEL ATL1 “1) BYT 
eet CRLF; 
Danz TO 4: 
Ea PR INTSCMAN(C(T)); 

TID; 
L, PRINTSCEAR(^ ^); 

ENT P; 


TT TO A. Б 


tad 


e 
1 


m GETSCHAR: PROCTDURES BYTE; 
| IF (4DDR:=ADDR+1) > BUFFSEND TEEN 


TO; 
| IP MON2(20,7C3) <> @ THEN 
| DO; 
| CALL P(.( END ^)); 
| END; 

ADDR=83E; 

END; 


BERN CHAR; 
END GETSCEAR; 


PALING STRING: PROCEIUARZ; 
| MEE LAP? J BYTE; 
| DO WHILF 1; 


| RE CUTSCHAR: 
| RR > 247 TE*N CALL PRINTSCHAR(Z); 
| WLS? RETURN), 
| WNT: 
mene TT eESSTRING; 


Pelee PROCHDURE(CUTPUTSEYTE) >; 
Ee OUTPUTS3YTE BYTE; 
Me os PUT> BYTE < 149 THEN CALL P3INTSCHAS'OUTPUTS?YTE + 
ES 


BU. CALL PEINTSCZAR(CUTPUTS3YTE + 778); 
END DSCRARS 


D: PROCEDURE (COUNT); 
DOTARE (COUNT, J) ADDRTSS: 
DO J=1 TN COUNT; 


CALL DSCFAP(SEHR(GETSCZAR,4)): 
CALL DSCHAR(CHAR ANT 977); 
Ge CRINTSOEAR(” °); 
END; 
END Di 








BRINTSECT: PPO 
IO COUNT,J.L 


e a 
ey 
— Hj 
Ci 


COUNT); 


PSFXPON: PPOCEDUPE(VALUT); 
ШОШ VALUE,X,COUNT1) түтү; 


BEL FLAC Pen, 
KO A DE) 2 


ШО FALSE: 
MOUNT] = ZOE; 
NSNUSII* VALUE >= DECI(X); 
UD DUE VALUE = DECI); 
FLAG = TEUS: 
ENE = COUNTI +1; 
END: 
WELAS OP (X >= 2) THEN 
CALL P2INTSCHAR (COUNT); 
DES GALE PRINTSCTFARC” “e 
END; 
RETUPN; 
END PSEXPON; 


no L 
RC 


ENU CE 


ASO COUNT 
nam) $ 
END: 
MEL PRINTSCEAR(” CA 
EG ON UM (GOONT-1) >= 82H TEZN CALL PRITTSCSAP('-']: 
mess CALL PRINTS CHAR( “+ E 
Etat bé CEA BI "GA 
SALT И сз); 
BOO TO COUNT-2; 
nx = 3CDNEM(L); 
E UK ED FOR), E Ka E RACT "HE Eu a i; 


ee» = Jo à o Ja do uts ato Wo ða 
ey ee ` xS me. esit tax 


LL 
* Zr 


CALL DEER (EK ); 

= (J AND 9F7); [TIPPA 7 
ALL DSCEAR(J): 

ND; 


QE = (2CDNUM(COUNT-1) AND 7F3); /* 

pa -4gr TEXN CALL PRINTSCEAR( ” + 
FLSE CALL PRINTSCHAR(” DOT ES 
MIDO INTSCRAR( TES); 

BET PSEXPON(K ANL SFE); 

END PRINTSBCD; 


B Os 


Lune t NU n 
y 
N 


5 
IGN OF EXPONENT */ 


EE REST: PROCELDLUBE;, 
D’ULLAFE 


J — 





- — — mmm 


END? pr 14, 
BOLS EDE aF 
NECS ER “24E*, 
L3L Ein о. 
[DII np "ANT, 
ALL LÍT ASH 
BETA DIT “OOR”, 
BEL BA SRNY 
ELC LIS EE 
PRO LIT “SE, 
ANDX LIT со, 
EOS INO Ze, 
PARM ET eo 
PAP MY a EUH 
LDIE E AE Ee 
WP TR ENT ee, 
WRTI Be 2910. 
wRTS р So, 
LDSI LIT “ABE , 
KAST LIT бо: 
IF CEAR = FNIDP TEEN 
DO; 

AA. 7 )); 

CAL BOOT: 
END; 


IF ү лот O (GRA. =PRTI? OR 


MEMES TERN LOs CALL D(1); RED 
[т Bere or) 0? (CEAR= TORI OR NGARAN EL) OE 
(CEAPZEEL) OR (CEAR-PLC) 9R (CUAR=PPN) OR 


ILE 0? (CTAR=PARMY 
bi DCs eer TURN; END; 


O = TASTE TEEN DO; CALL D(4) 
Ms LETTE TERN LO, CALL PEIN 
ШОО ША = LDS] TREN DO: CALL WEIT 


URN; 
ENT PRINTSREST; 


ES PFOCRAM FXECUTION 
MNENEINZ: Lo; 
I" MCN2(15,"C2) = 25% TIEN 


ро; 
CALL P'.,( ‘NO FITF FOUND')); 
CALL BOOT; 

END; 

DO WEILE 1; 


lc UTSCHAP <= 
DO Cho CHAR 
o (A NOp. ^Y): 


\ 
i 


ME EN 


ENG 


DOS 
URN; 7 
Dass R 
iu, E 
= f 


m 
COS O 


OR 
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q Ud dd oOo uyu uU g 


m aA, Pm AN A A IM A I ITM 


— — —. —. — —. —. — — —. —— — — — — ER OR ER ER EN ER ES ES EN BEN ER EN EN EN EN SON ER „ч SE SE BE SR SR SN SE. SR 


> 
== 
ão 


` ` “a 
Rt реч ра 
ry EA ii 


++ UJ 


ZOH mM 


` 
Ú 
3 


“N?GRB 
TECI 
“COMB 
COMI 
"NCTX 
ADX 
"pop 

Tk 
45107 
"STO 


“TOSTT 
“NEQST 
“INCL1 
“INCL2 


$ <` ` `A NG NOO NO NO NON QA NS S CNN 


af el ef ч мм el Sigt — af ml al ы” Ml ee” as ml af ol af al „ә uu af al al ot ct ct al nt AA — — ef OP el Rl a v. — af ees tl rt opt ee —— mao 
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mag GG DO oo “SL ee We BO 9 “oo DO OO DO DO we we SO 20 ww. 99 we we we Oe we DO oo we we we we DO oo DO LO we we 9 99 «9 DO .. $0 We Be we Bt 9 «99 O DO Ss. 99.9 


` ` ` N ` ` ` sos ` N N ` N A ` ` ` ` N ` sos ` ` N % ` N ` ` N ` ` ` ` ` N 


N) 
DI 
SI 





CALL 
GALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CEEL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GAT 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CATL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
(ALL 
CALL 
CALL 
CALL 
CAIL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


dd vyl vd vd UU NU FO td UA TODA w oi dd ud ed O Vo voto O dt UTOT ee 9 id io 


— — — — ETC — .— —— —— —— ——— ——— —— — E gë AA AA TS SIT SR ER ES EN EN EN EN EN EN EN EN EN ON EN EN EN EN EN N EN EN EN EN EE a. 


“WRTR 
"wETI 


MIS 





CALL P(.( PAGE 
CALL elle 
[LE DU NU 
GEL PD 
COLD PU. TREND 
GAT I 


BUD : 
uS CALL P(.(^222Z 
CALL PRINTSREST: 
END; oo me TI 
END MAINIINE; 
HUGS oe ELE; 


` ` ` ` ` ` 


we 9 906 wt we we 


AAA ma 


“YG 


NG 


IN) 
¡Sy 


ale 
eu 


n) 


OF 


la MENTI 
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Sr SLEE .SREC 


EPECFNIPTE/(EC) TITLF('/SYM — STMBOL TABLE PRINC UTILITY”) 
Ke 
BONE SyM.0NPJ,TRINT.OBJ,PLMED.LIE TO STIM.LNK 


-LOCITT SYM.LNZ CODF(122E) 


de alo ste “te Wa ato ulo ule nto ste ale vio sleale ale xz wie wie ale wa wo als ao Wo sie aile ato Wone uo do nis ate le ste alo Wo ale slee «tu qo slo no Wo alo alo wo ale ate ale als als ale ate wie ale sie als 
ы ы ` ye Sr e ЫЫ as e eya e e bba "м ey ы ы Le hd ye e en e` en. e. Let hd ү» As eu ЫГЫ e e ` ум ey. e, e" e ye ey Zum eo e ° ыы en en e` > eye Ar eya өү» әү» Let id Zus Lal dad ey Bun Zus ø` o Nas 


x: > 


ale we of, e 


TUIS PROGRAM TAXES THE OUTPUT FROM THT PASCAL SYMBOL TARLE 
DID CONVERTS IT INTO A READABLE OUTPUT TO FACILITATF 
x / 


Ei DO, 


DECTARE 


r1 


LIT LITERALLY Cites hy 

EXT ШЕТ EDE NAT A 

FCB ATDRESS VI PSE): 

ADD? MET “ADDRESS, 

2YTY BASED MA. 

57615 (5) APTR num Ee 
(3) 3YTT TOLIMA POE mq 

I PITE, 

TRUE р AN 

FALST LT EON 

COPYING RYTE PNA le ae be 

AIDR1 ATIRESS INET AL LAR Y 

CFAR BASED ADDR1 3YTF, 

BUFFSEND EBIT TODI, 

FORMMASK LiT PEN, 

DCL DIT ect, 

DC I 

PROC LIT PROCEDURE”. 

FOTFILLEFR LIT KA 

PCINUM(E) ВҮТЕ, 

TES TYPE(S) гүре PAA. YAO 

FORM BY Na. 

TAPLESSTART ATE Ve STARTING LOCATION AT COMPILATION */ 

OFFSET ATER, /% NEW VALUE OF TABLE ENTRY */ 


r 
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€—S = 





PARMOLISTINS(18) ADDR, /* LOCATICN 


erin SYTF INITIAL(Z), 

BMI (17) BYTE, /* KFEPS COUNT 

SAVESBASE DDR, 7 Savas EAST LC 

LPN PCa eee PF 

PAST Ie OF CU?RBENT ENTPYY/ 
SE BETTOP CU 

SSTBL ADDR, 

L ADDR, /*LENGTY OF SYMPOL 

Pak BASED BAS? 

APTRADDR ADDR,/* 

ADDRPTP CAGED APTRADD? ADER, 

Ber? К TRAI Br, 

EE EdAv 7T A ET BEER TO LOCKUP. CP 
SYMHASS OL, 


15357 POSTE ADR, 
E ADDR, 
EBCOBLSCOFE ADDR; 


NO PROCETUAR (F,A) EXT; 


An? © SYTS, ^ ADDRESS; 


END MONI; 


LO PROCELEURE (F,4) BYTE EXT; 
DACGARYE F BYTE, A ADDRESS 


END MON2* 


EOS. PROC FXT: 
END BOOT; 


PRINTSCFAR: PROCEDUPF (CEAR); 
DECLARE CFAR BYTE; 
CAGE MON1(2,CEAR)5 

END PRINTSCEAR; 


CPLF: PROCEDURE; 
UNLT PRINTSCEAR(123); 
CALL PRINTSCFAR(12); 
END C?LF; 


PRINT: PROC (A); 
DCL A ADIR; 
CALL YON1(9,A); 
END PRINT; 


274 


PYTE,/*1ST BYTE OF 
UTILITY Var POR TARLTE 


si 
ann. 


/ 


E EFES 
y 


O SYM os 


EN TEP 


ale 
os 


uto 
^S 





E CFAR: PROCEDURE BYTES 
NN ADPPIP-AÁDDRi-1) 
Do; 


> RUFFSEND TyrN 


T® MON? (2@,FCB) <> @ THEN 
pOr 
CALL PRINT(,(^TEE END $^)); 

UND; 
ADD?1-282H; 

END: 

BTTURN CHAR; 

END CETSCHAR; 


ME: PROGEDURE(OUTPUTSBITE); 
BEI ARE OUTPUTSPYTE BYTE; 
ШООК PUTSBYTE < 10 TREN CALL PRINTSCBAX(QUTPUTS?YTE - 


IE 


ioe CALL PRINTSCHAR(OUTPUTSBYTE + 37H); 
END DSCHAR; 


Ds: PPOCETTTT (COUNT); 
DECLARE MOONT. 7) AETRESS: 
ШО 1 TC COUNT; 
CALL DSCFAR(S2P(BYTE?TR,4)): 
SCR (j up no AND CFF): 
APTRADDE = APTRADD2 + 1; 


U 1 
alo ale Ja nla nto mio alo alo nto ala ata ala louis es alo ala Wa als ala alo ole ale ale ale sie ula alo ata alo nto Jo ale do ala Wa ala alo alo wla ala ala aala alo Wa wo wa ala ala wla Jo wo mia nto ate nto ais 
/ ao e ^ es > 2,9 "ү Sum ^0 ү > > > Sum nr ` ү» ` La hd ы ы ЫЫ Pa mg ы ы na Ld hd 2,9 au +7 mya > bd bd A ng ee ^ Le hd nmo ø, ny Ti Ty bd hd “> ké +,» “ye ea +. e +,» Ld hd ø A ыы E ^, e. 


EBENE BET: PROCGEIURE (COUNT); 
ESTARE (COUNT, J, E. L) 3YTF; 


PSEXPON: PROCEDURE (VALU); 
MOLAR (VALU, X, COUNT1) EYTES 
MOS LAR FLAG BYTE: 
DONG - 0 TO 2; 
UG = FALSE; 

GOUNT1 = Gas; 

PO GL? VALU >= DFCI( 
YALU VALU - DECI(X 
PLAS TEE; 

COUNTI = COUNTI + 1; 

ENI; 

IMRE RR (SR 
CALL PPINTS$CHAF(COUNT1); 

FLS? CALL PRINTSCEAR(” ^); 

TND; 
RETURN; 


X); 
): 


lH I 


N 
K 
1 





END PSEXPON; 


Bi TO (COUNT-1); 
BRDNUM(L) = 3YTEPTE; 
APTRADDP=APTPADDR +13 

ENT: 

BAT PRINTSCEAR(” ^); 

IF BCDNUM(COUNT-1) >= £ TEEN CALL PERINTSCHRAP( 

ELS? CALL PRINTSCFAR NG 

SET Bea CHAR( 67); 

CALL PRINTSCHAR(’.’)3 

DO L=@ TO COUNT- 2; 

H S DNUKM (L); 

HE AND 2F2H),4)5 /* EXTRACT TAE MSD FROM 

ED SCEAR(X): 

MAT AND OPH): /* VETRACT TEF LSD FROM 

PRENDE BSCPAR(I); 

END: 

S SCUNUTM(COUNT-1) AND 7FH); /* GET RIT OF 

IF K >= 40F THEN CALL PRINTSCUAR( +"); 


ZLSE CALL PRINTSCEAR( 7-7); /* SIGN OF FXPONF?T 


CALL PEINTSCFAR( E”); 
CALL PSFXPON(X AND 379); 
END PRINTSECT; 


iio PROCEDURES 


AE EE (32), TCRSBYTY(2) = 2; 

DO I = £ TO 2; 
Bi BY TE (10) = PILESTYPE(T} 

END; 

ING? (15 ,FCB) = 255 TIEN 

DO; 
CALL PRINT(.(”EFROP--GONT TO ROOT $ )); 
Er BCOT; 

END; 


ee DOTS YM; 


DISKERR: PROC; 
EO; 
CALI PRINT(.( DE s E 
i = Con. 
END; 
END DISZEER; 


PFINTDTC: PPOC(VALUT): 
DET KUA ATO | BAD. COUNT BYTE; 


22€) 3 


SICN 5*/ 


ate 
gç 








EN 
0 (1-4) 


VALUZ >= DECIS(I 
ATE AUG => DECS 
[om nn 

COUNT = COUNT + 1; 


р, 


): 
DE 


THEN 
CALL PRINTCSAR(COUNT): 


TLSE 


UND; 


RETURN; 


UND PRINT 


EENEG ET 
DCL О 
IRA 

eee se TAD 


"ML C? 
CAIL 


CALL 
Ba AT SP 


GOB OT 31, - 


/* COPIES FILE.SYM TO MEMORY, LOOXINCG 
(14H) IN A ROW */ 
Ber x ADDR: 
En; 
EO WEIL® COPYING; 
GAT LOST ALDDRETRLK)3 
Ba TT CEAR; 
К = x + 1; 
i oo eee BONS TELLER TEEN 
DO; 
wer), 
AS р ДЕТ ӘТ): 
EFES MPO 
e E = SCPE ELT 
nos 
COPYING = FALSE; 
Emote = Apos 
BUS 
END: 
END; 
RTTURN К; 


Gal cR Ту; 


Lec; 


Ko PROC(672577)5 
HFST ADDE, 

CDR = BASE + OFFSET: 
DRPTE; 


PN: PROC(OF 
Ps5 P AVTE; 
STTADDRPTE(E 
SETADDRPUR(? 
ASTSPN; 


FSET); 


PROC ADDF: 


у 
үк от cc ODFSET)5 


FOB. ED 


DOP TL ees 


ee 
н 
= 





(RU 0 0 RM RR | 


AAA 


mip GOPYSSETSL; 


RESETSLOCATICN: PROC(A) AITDR: 
Bon 4 ADDPS 
moo = A= TAPLESSTARTS 
FEDERN OFFSET; 

END RTSTTSLOCATIONS 


PARI: PROC; 
Um PRINT(.(* $^*)): 
END T431; 


RS PROC: 
CALL TAF15 
SEL TABI! 

END TAR2, 


WRITESENTRY: PROC; 
DOG SE (OPM AND 073); 
CONDE PAINTO.(TARTI, ENTRY 2 7)) 
CALL PRINT/.('CONSTANT МЮ è 
EAT PAINT. (TYPE 3NTRY SY) 
CALL BCE лы к 
Pree wiht (PROCEDURE ANTaTY 
BATT AR oa (oz LON EE 5 
GA РЕГ ALE ENTEY SD); 
EE EEN ENTRY STA); 
ÐI; / CASE */ 
END WPITESTENTRY; 


BO TSIL: PROC; 
BG 5177 BYTE; 
CALL SFTADDRPTR(E); 
E =- EYTEDTR; 
boði = 1 TO SIZF; 
CALL SFTADDEPTR(E+I); 
CALL PRINTSCHAR(EYTEPTR); 
BD; 
TL CRLF; 
ANL PRIN?TSII:; 


PANGTR: PTOC(ANI 
Bol (A, BASTI) ADDS; 
ASE; 


BASSI = FAST 

BAST = A; 

NULL SXxTSADDRSPTR(T)S 
CALL CRLF; 
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BILAR, | u 
EO PET. NITO LOW VALUE $)): 
IF (sen(toam,?7) A END FORMMAS%) TEEN 


ENT PRINPSCFAR(EYTEPTA): 

u P CALL PPINTSDWC(ADDPPTR): 

BILL PPINT(.(° AND TICH VALUE S°)); 

GUCE SETSALDASPTP(O); 

I? (SER(TORM,7) AND PORMMASX) THEN 
EAT PRINTSCEAP(BYTEPTR)3 

Bago CALE PRINTSTECIADLAPTR): 

pn v — BASEL; 

END PANGER; 


USFRSIEFINSI: PROC; 
DOBGAS (SFF(BYTEPTR,E) AND PORMMASX)S 
Dos 
GAEL POINTC.( ENUMERATED TYPz - $^Y): 
CALL PRINTSID; 
BE PEN Ee CA A 
CATE SETSPASTSEN(7); 
GATE PRINTSDEC(BYTEPTR ); 
END; 
mos 
DO CAST (SER(BAYTEPTR,E) AND FORMMASK); 
BA POEM ОООО ЛАК ЮМ ERATED ST TBRANCE $^))5 
Do: 
CALL PRINT(.(/AN INTEaGT2 SUBRANCE $^)Y: 
LPN = LPN + 13; /* LENGTE OF 4TH ENTFY */ 
күт; 
CALL PRINT(.(°A CHARACTER SUBRANC? 
END; /* OF CASE */ 
BALL BANGER(TASE): 
TND; 
DO; 
LEL PP Ed AN ARPAY 5/1): 
BATI SENADDPPTIR (5); 
I = BYTEPTR; 


ta] 


sn 


BEE EEN + (431): - /*+ LENCTE OF 172 ENTRY s 


SEL CRCR; 

САТ TAR2, 

ELI PRINT (TEE COMPONENT TYPE 18 $%)): 
CILL STMADDEPTR(12); 

E HEDE) 


Ce S CALARTS A); 

COR  LNREGES 5^3); 

s f ls): 

CALC ERINTO REAL S7]; 

CTR Sele Ne ee 

CARR BRINCO POOLFAN S )}); 
IND; /* OF CASE */ 


CALL CRLF} 
CALL DA BE; 
dee EE NE IRES F); 


209 











As one: 
COLE PSINTSDTC(ADDz?T gj 
ar EE EE KR AA 
QUILT COLF; 
GULL T32; 
CALL PRINT(.( TFTPE IS/APF $ )); 
CLIL EINDE n: 
GAT PRINT S 
CALL SETADIRPTA( 
BO manta Sc; 
APTRADDR = APTPADD? + 4: 
eo in DU 


LEN = BEN IS AICA OE AE EN LAY ES 
E- re; 
END; 
END: 
DO; 
END; 
TO: 


DIES LADA OS 
CALL S2TADLOPTR(S 
PAES тїс; 
BAST = ADDEPTP; 
ALL PRINTSID; 
i = SAVESFASE; 
TND 
PO: 
LL PAINT (TA 
BL. SEMANDEPTP( 
SAVERASE = BASE; 
EASY = ALiR?T2: 
CALL PRINTSIDS 
Bess SAVESAST; 


A S 
E 


EE 
Eo 


ENT: 
DO; 
BER ete A POTNT29 Cz TYPE S$” +); 
Cla ore LER eT (5); 
sd = BAST; 
ech = kL PRP TR; 
BET PR Te fl: 
res EN. ASA; 
FND; 
SE */ 


END: /?* OF 
*ND USTPSDF?7IN- 


ПЕ COLLISION: PR 
F. FOR ATLRIS 


OC; 

ЖО ILL a AN EAT: 
ME mLISION GAIN ZAC E 

C 

( 


> 
BITS, STOPS 
WEEN NO PU2TEUR MLLISIONS OR TABLE PUNS OUT. */ 
CALL SETADDPRPTR(S 

Шо = SYTYvPT?; 
CALL. TARIE 
Ii. Fri = $°)): 





CAVESEASE = BASE} 
Be EE STAR, 
BASE,APTRADDO = ADDRPT; 
Ne r ss: 
Chi ets ips 
CALL SOO AN 
ES оо: 
END; 
TF ADDRPTR = O2H TIF 
EDIT TRINP( (“AND TERRZ ARA NG FUSTARR COLLISIONS ¢*‘);3 
MS DO; 
me PPINT( .(° ANY OTHER COLLISIONS- OCCUR IN TZzz5*)); 
GAUL ГЕ; 
os ad BUILT-IN SINIO. TABL? $9 5): 


ESE = SAVESBASE; 
END: 
Ol: CRIF; 
UNPEUOSECXSCOLLISION: 


UNTRYSTTAD: PROC; 
tree NB ITESENTRY3 
puk CPINTSIT: 
ERA NG F #OXKSCOLLISION: 
CALL TABI 

BUG UNTAY Ss TFAD! 


de 


BENG TYPE: PROC(A): 
ПЕР А түтү; 
Del TYPE BYTE; 
TYPE = (SHR(A, 2) AUD FORMMAST); 
DO CASE TYPE; 
/* SCALAR-ORTDINATE */ | 
CAV kitts SCATA? ORDINATS $^): 
/* INTEGER */ 
САТ ШК TNTEOER SA): 
/* CHARACTER */ 
GALA. CHARACTER SY), 
pa D TAT, A / 
SR PAT S )); 
/* COMPLEX */ 
| DOR 
| SAVISBAST = BASE; 
CALL SETSPASTŚPN(9); 
RAS AE ETD: 
СА SEA EER EA); 





ul 





17 (BYTZPTR AND TORMSMASK) = Z7E THEN 
BEI ORTE EN 
ELSE CALL PPINTSING 
BAST = SAVPSRASE; 
ENT; 


/ BOOLEAN */ 
Meter BOOLSAN ST) 
END: /* CASE TYPE */ 
MT CELT; 
Pl TARI; 
myer nc is TYPE; 


CEFCZSTYPESCONST: PROC(A); 
Zë CHECY FOR TYPF OF CONSTANT AND PRINT IT x, 
ШОШ К ETTE: 
BO EISE 4; 
ESO UNSICNED ITENTITIES */ 
EU OPINO UNS TGNEL IDENTIFIER S )); 
INTEGER */ 
EC BRO INTECTR 5 )); 
"UO REAL */ 
au P2INT(.(^ Bu: 
/* 3 STPING */ 
IND PRINTI.(^* STRING C 
/* 4,5,6,7 NOT DEFINED */ 
$ H 3 ) 
/ 8 SICNID ITENTIFIER */ 
MEMO TIRI SND IDENTIFIER $ 
END; Ve CASE 3 KE 
TND CEECKETYPESCONST; 


nt 


ao 


PPINTSPFT: PROC(A); 
BORA BYTE; 
Wii = 12 TEEN 

AT. (TEE ASSIGNED PRT LOCATION FOR TAT SRP 
EE CALL PPINIl.( TEFE ASSICNFT PT LOCATION IS 
MI SETSPASTSEN(A): 
I PPINTSDFC(ABDRPTR): 
RUN CRLF; 

END PRINTSPAT; 





PEINTSLABFL: PROC; 
CALL FNTRYSYFAD; 
REGE PRINTO CU DEE ASSICNED LABEL VALUE IS 5’): 
ШАТ SFTSPASTSPN(7): 
| BEL PRINTSTEC(ATDEPTR), 
TL CRIT; 
| END PRINTSLAREL; 
| 


EE — 





PDINTSCONST: PROC; 
LOL (TIP? SIZE 1) PIT; 

CALL WRITESTNTEY; 
BET PRINTSID; 
EAT CE TCKSCOLLISION: 
BATI PPINT(.(” DEAN CONSTANT TYP5 185 7)): 
TYPE - (SUHR(FO?M,3) AND 2T); 
CALL CATCKETYPILCONST(TIPE): 


BENT PPINT(.(" HEN EE EES 
von = 1 TEEN 
O 
BALL SETSPASTSEN(7); 
MATT Eo Baa 
LPN=LPN +9 
END; 
IF TYPE = 2 TEEN 
DO: 
CALL SETSPASTSPN(7); 
NE PRINTSECTDÓS): 
LPN=L?N +15; 
END; 
P” = 0) OP (TYPE = Z) OR (TYPE = E) TUN 
Dor 
BMTEL SrTSPNSTSPN(?7); 
SIZE FYTEPTE] 
meer = 1 PO SIZE; 
CALL STTSADIRSPTR(Z+LPN+I)S 
CEM PAINTSGFARLBYTHPTR): 
TND; 
LPN=LPN+SIZE+E5 
ENT: 
EID PPINTSCONST: 


PRINTSTYPE: PROC; 
CALL ENTRYSUEAL: 
SPRINT TER PARENT TYPE IS $^): 





po CASE (SEP(F ORM,3) AND 5 

| GAIL PRINT(.( INTEGER S’)): /* e */ 
PEL PENT FEAL $S 1); /= 1 */ 
BITE PPINDO,((GFAR 5”)); /з о #/ 
Ore PRINT(.( 200LFAN $ )): /* = =/ 
ay 
e 5 sy 
o E */ 

| ШО; 7 */ 


CALL STTSPASTSPN(7); 

CRS RAS = EASE; 

BAST = ADDRPTE; 

CASA Aaa 

IF (PYTEPTR AND FORYMASK) = @?E THEN 
CALL USSR sew NED, 

FLSE CALL PRINTSID; 


DI 
pa 
CN 











[NSU - SAVESPAST; 
ENT, 
ШОО К ASS */ 
END PPINTSTYPE; 


PRINTSVARIAPLE: PROC} 
CALL ENTFYSEFAD; 
TE PPINT(.( TOE YAPIAPLE TYPE IS $°))3 
CALL CBFCXSTYPE/ FORM: 
BTL PrINTSPRT(7); 
END PPINTSVARIARLE; 


STRROUTINT: PROC; 
БОГО BYTT: 
Meme PRINT(.(°THERF ARE $ 7); 
EAT SU TSPASTSPN(7): 
Mac SYTEPTR; 
CALL PRINTSDEC(PYTEPTR); 
GA PRINT(,(" PERAMETERS $^')): 
GATE CRLF; 
CALL SETSPASTSPN(E): 
EU NELISTING(SU??TN:-SUPRTN#1), APTRAIDR = ALTPPTR; 
pWpMSNUM(SUSPTN) = J; 
EUN 2 1 TO J; 
CALL CAP? 
ren ANG SY); 
CALL PRINTSDTC(I SE 
E EE 
IT SER(SYTTYFTR,7) TZFN 
Bo; 
IF SER(PITEPTR,E) TIEN CELL PP 
TLSE CALL PRINT(.(% VAP 


(O UNION EG 


END: 
ELSE IF RYTEPTR - 4 TUEN CALL PPRINT(.(^ FP 
MEGA A PRINT (.( VALUE $7) ); 
CALL PRINT(.(°PARAMFTER OF TYPE $7) 
EE ODE TTEA(EORM): 
APTRADDR = APTRADDR + Z; 
END; /* DO I */ 
CAN PRINTSPRT(1@): 
CALL PRINTSPRT(12); 
Cun TABI: 

Gn PRINT/(.( THF L 
BET SFTSPASTSPN(14): 
MEL PRINTSDEC(ACDRPTIR)S 
meee CRLF; 

END SUBROUTINE; 


DEI VATUs PRECGDRING TEE COPE ISS 1); 
4); 


BRANCH: PROC; 
Een 7 5BTEL + (3 * PARMSNUMISUSRTY)J); 
AER TI = SUERTN ~ 1; 





PES PROC: PROC; 
CALL ENTRYSIFAD; 
ET SEEDOUTINA; 

END PPINTSPROC; 


DRINTSFUNC: PROC; 
CALL ENTRYSEEAD; 
BIT PEINT(.( TEF FUNCTION T7TYPF* IS $^)); 
CALL SETSPASTSEN(16€); 
FORM = EYTEPTR; 
BU, CEECKSTYPE(FORM)3 
WADE SUBPOUTINSE, 
UND PRINTSFUNCS 


DSS TIE: PROC; 
CALL ENTRYSEEAT; 
ENG PRINTSFILT: 


ELP PER: PROC; 
DO CAS Е(5НҢ(ТОҢУ/, Z) AND FORMMASE); 
DO; 
CALL SETADDRPTR(E); 
SE TEE = SPIL + BYITEPTR; 
түр; 
SRTBL = SPTBL + 16; 
KO: 
CALL SETADDEPTR(S); 
SBTBL = SBTRL + 12 + (2 * RYTEPTR); 
END; 
DO; 
IF FORM = 1FH TREN SBTBL = SBTRL + S; 
SIDO: 
CALL SETADDRPTR(6); 
5ВТЗ] = SRTBL + 14 + BYTEPTR; 
ENT; 
END; 
SBTBL = SBTBL + 7; 
Set = SETEL + 7; 
sen, = SBIBL + 7; 


END; /* OF CASE */ 
ENT SKIPPER; 


STARS: PROC; 

GAEL CRLF; 
CALL 
PRINT(.(^----------------------------------------- 











END; 


eves PROCISOURCE,DESTIN,L); 
BG (SOURCE, Dec TIN, EL) ADDR, 
SCAN OE DC AR BASED DESTIN) PYIF; 
TER (LL 1) > 85535; 
DCEAPSSCEARS 
DISTIN=DESTIN+1; 
SCURCE=SOURCE+1; 
FND; 
END MOVES 


BEING DO; 
Era DOTS YM, 


FO Sp s PTBL = .MEMORY; 
BG COPY5SETBL: 
BRR SITADDRPTS(4); 
Be BYTEPTR; 
DO CASE (FORM ANT FORMMASK); 
SEDI SETSPASTSPN(11); 
Lo; 
ENLL SETATCTIRETPÓA 
I? SER(BYTEPTE,4) 
EISE CALL SETSPAST 
END; 
ООП SETSPASTSPN(1 
CALL SETSPASTSPN(1 
(1 
1 


MATA PASAN: 


tes 
na + 
we EI 


Bl SETSPASTSEN 
BEL SETSPASTSPN( 
E. SETSPASTSPN(O 
THIS ENTRY IS IMPOSSIELZ FOR TTE 
END; pa CASE FORM */ 
MES RTNG LOCATION OF THE SYMBOL TAPLP */ 
DESNEESSPART - ATIARITP; 
Mennea (SBTBL, TABLESSTART,.L); 
EE DORT = TARLESSTAR?; 
/* START */ 
CALL STTADDRPTR(2); 
DO WHILE ADDRPTR <> 22H; 
BEL SETADDRPTR(A); 
FORM = BYTEPTR; 
BRL STARS; 
DO CASE (BYTEPTR AND FORMMASK); 
R LABEL */ 


1); 
3); 
e); 
9); 
` ° 

/ ) 


Fil 
++ 

= 
Cs) 
E 
[>] 
== 
ES 
YJ 
r< 


LO) 
6 DU N SS LAE SI; 
SEA. SBL 9 + LPI; 
END; 
“OOR STAN sy 
DO; 


CALL PRINTSCONST; 


EE 








SEBI B EE 
END; 
/* VARIABLE */ 
DO: 
CALL PRINTSVARIABLE; 
AE l > LEN, 
END; 
A PROOSEUEE = / 
LO; 
E EE 
RE, E 
NI; 
UGO Z 
0; 


CJ wj 


CALL PRINTSFUNC; 
O Оле ТТ? + IDEE 


DO; 
AE Sj, 
EE ete + [PNG 
END; 
/* USEP DEFINED ENTRY */ 
nos 
Co UDO Ler in, 
END; 
tv OF CASE #/ 


feo. el = PARMSLISTING(SUBRIN) TEEN CALL 3RANCE; 


ESE = SETBL; 

Well SETADDRPTR(2): 
Ер; 
SATTI COLE; 


CALL PRINT(. (“THE SYMBOL TAELE PAS BEEN PRINTED. 


OE T 
END MAINLINE; 
ID SYM, 
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